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Processamento de textos h uma solupao 
elegante, quase m^gica, que a 
tecnologia deu a muitos dos probtemas 
que tern atribulado os escritores, 
desde a invencao da escrita. 



fi quase impossivel produzir um tex- 
\o perfeito logo na primeira tentativa. 



Em geral, cometemos erros ou, mais 
corriqueiiamente, mudamos de idda so- 
bre o que desejamos transmitir. Como 
se sabe, a corre^ao e modificagao de tex- 
tos jd escritos toma tempo, e o resulta- 
do final acaba todo rabiscado. Pior, se 
houver muitas aliera^oes, e precis© re- 
bater ou reescrever todo o documento, 
e novos erros podem aparecer. Quem ja 
experimentou escrever coiihece bem es- 
se torturante processo. 



O processamento de textos por com- 
putador aprcsenta a vantagem imedia- 
ta de fadlitar a execu(;;ao de akeracoes, 
tornando desnecessaria a cansativa ta- 



wi 



refa de "passar a limpo" o trabalho fei- 
10. Isso resulta em tremenda economia 
de tempo, o que e de utilidade mesmo 
para aqueles que nao escrevem por ne- 
cessidade ou profissao. 

Ja publicamos em INPUT, no arti- 
go da pagina 576, um programa que co- 
ioca a disposigao do usudrio os recur- 
sos basicos de edigao de texto. Se voce 
tern interesse em adquirir um processa- 
dor mais potente, convem conhecer mais 
detalhadamente suas possibilidades. 



ADEUS, BORRACHA! 



Processar um lexto significa simples- 
mente digita-lo no teclado de um com- 
putador e armazeni-lo na memoria. 
Portanto, usando um software adequa- 
do, voce poderd fazer modificacSes e 
corretjoes com rapidez e eficiencia, e em 
seguida proceder a impressao. Se o tex- 
to for armazenado em fita ou disqueie, 
sera possivel carregA-lo novamente, 
sempre que necessirio, para outras mo- 
dificafoes. 

Como vimos no artigo ja menciona- 
do, com um programa elementar de pro- 
cessamento de texto, o usuario efetua as 
alterafoes "passeando" um cursor (ge- 
ralmente um pequeno retangufo ilumi- 
nado) sobre a tela, ate a parte a ser mo- 
dificada. Escreve entao sobre o texto 
que all se encontra. Este e apagado da 
memoria e substituido pelo novo texto 
— sem rabiscos e sem complicafoes. 

Inserir letras, palavras ou frases no 
meio de um parigrafo tambem t uma 
opera^ao simples. Para realiza-la, recor- 
re-se a fungao de inserijao dos proces- 
sadores de texto. Por meio dela, podem- 
se introduzir alguns espa^os em bran- 
co e depots escrever sobre eles. O pro- 
cess© mais comum, porem, e simples- 
mente escrever o que se quer inserir, dei- 
xando por conta do programa rearran- 
jar automaticamente o restante do tex- 
to, para dar lugar ao novo. 

Estes sao apenas dois dos numerosos 
recursos dtsponiveis em um processador 
de texto. A potSncia e sofisticacao des- 
se software ficam evidentes quando se 
consideram os diversos "truques eletro- 
nicos" de que e capaz para auxiiiar 
quern esta escrevendo. 

As fungfies de inserfao e modificapao 
de texlos sao chamadas recursos de edi- 
^ao. Entre estes incluem-se tambem a 
busca e a substitui^ao de caracteres no 
texto. A fun?ao de busca permite a lo- 
calizagao automdtica de uma seqiiencia 
especifica de caracteres — uma palavra, 
ou mesmo uma frase — em uma parte 
ou em todo o texto. Suponhamos que, 
tendo digitado um texto muito iongo. 



queiramos fazer uma modificapao cm 
certo pardgrafo. Nao nos lembramos 
onde ele estd: sabemos apenas que con- 
cern as palavras espiral infiaciondria. A 
fungao de busca nos ajudara a descobri- 
las rapidamente. 

A fungao de substitui^ao i mais po- 
derosa ainda. Ela efetua a busca de uma 
seqiiencia determinada de caracteres por 
todo o texto, substituindo-a sempre que 
a encontrar por uma segunda seqiidn- 
cia. Isso k litil quando grafamos incor- 
retamente uma palavra qualquer em va- 
ries pontos do texto, ou quando 
queremos trocar uma expressao 
erapregada com freqiiencia por 
outra de sigaificado mais pre- 
cise. Com a funijao de subs 
tituigao, podemos tambem 
recorrer a abreviaturas ou 
codjgos na digita^ao de 
um texto. Por exemplo, 
se vamos escrever diver- 
sas vezes programa 
amistoso para o usua- 
rio no texto, bastard 
digitar um asterisco, 
ou qualquer outro 
simboio, em cada 
um dos pontos em 
que a frase deve apa- 
recer, usando poste- 
riormente a fun^aode 
substitui^ao. 



Com o processador de 
texto, nao e precise ser um 
datil6grafo habilidoso para 
conseguir bons resultados. 
Mesmo que vocfi s6 consiga da- 
tilografar com dois dedos, observa- 
ra um aumento consideravel na sua ve- 
locidade de trabalho, pois poderi avan- 
far "a todo vapor", sem se preocupar 
com erros ou efeitos esteticos. 

Se sua ortografia deixa a desejar, 
procure utitizar um processador de tex- 
to dotado de correlor ortogrifico (spell- 
checker, em ingles). Ele percorre o seu 
texto "olhando" cada palavra, e com- 
parando-a com um dicionario interno 
padrao (armazenado em disco). Pala- 
vras nao reconhecidas — por terem er- 
ro ortogrdfico, ou, simplesmente, por 
nao constarem do dicionirio — sao as- 
sinaladas. Neste ponto, dependendo do 
programa, voce tern trSs optjoes: deixar 
a palavra indicada como esti, corrigi- 
la manualmente, ou permitir que o pro- 
grama a substitua pela versao correta 
(muitos programas mostram uma lista 
das palavras que poderiam substituir a 
versao assinalada no texto). 



FORMATACAO 



Os processadores de texto mais po- 
tentes dispoem de uma s^rie de recursos 
adicionais, que permitem executar o que 
chamamos de formalagao do texto. A 
formatagao tern por objetivo produzir 
um texto final arranjado segundo certo 
padrao est^tico, independente da manci- 





ra como foi digitado. Os recursos de for- 
mata^So usualmente permitem especifi- 
car o espagamento entre linhas, o niime- 
ro de linhas por pigina, o niimero de to- 
ques por linha, o tamanho da folha on- 
de vai ser impresso o texto, a numera- 
fao das piginas, cabecalho etc. A fun- 
(^o mais importante da formatagao, po- 
rem (e a mais dificil de se realizar ma- 
nualmente), e a justificacao das margens 
— ou seja, a definicao do alinhamento 
lateral das paJavras. A se^ao de forma- 
tacao dos processadores de texto reali- 
za essa tarefa automaticamente, Muhos 
deles chegam a sofisticagao de separar 
as silabas das palavras, ao final de iima 



linha, con forme as regras do idioma. 

Quanto i formatafao, existem tr6s ti- 
pos de processadores de texto. Todos 
eles se encarregam das mudangas de li- 
nha, permitindo ao usu4rio datilografar 
o texto de um paragrafo continuamen- 
te. Em geral, a tecla < ENTER > pre- 
cisa ser pressionada apenas ao final de 
um pardgrafo. 

No primeiro tipo de processador de 
texto, quando uma patavra que est^ sen- 
do datilografada nao cabe na linha, o 
cursor passa para a linha seguinte do vi- 
deo, sem se preocupar em dividi-la se- 
gundo as regras gramaticais. O texto fi- 
ca dificil de ser lido na tela. 
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Nessa situagao, o segundo tipo de 
processador de texto transporta a pala- 
vra inteira para a linha de baixo (meto- 
do denominado word-wrap, em ingles), 
A leitura no video torna-se bem mais fa- 
cil, mas a margem esquerda do texto fi- 
ca irregular, o que no Brasil recebe o no- 
me de margem americana. 

O terceiro tipo de processador ajus- 
ta a margem esquerda na tela, de modo 
a proporcionar um alinhamento. Como 
ji mencionamos, alguns sistemas che- 
gam a hi/enar automaticamente as pa- 
lavras que se divjdem ao final da linha, 
o que meihora consideravelmente a apa- 
rencia do texto. Esse processador e de- 
nominado WYSWYG (do ingles What 
You See What You Gel). Com ele, o 
usudrio tem oportunidade de acompa- 
nhar na tela — a medida que vai escre- 
vendo — a produgao do texto final, 

O tamanho do texto, evidentemente, 
nao 6 limitado ao tamanho da tela. A 
maioria dos processadores de texto per- 
mite "rolar" um texto para cima ou pa- 
ra baixo, ou, ainda, para a esquerda ou 
para a direita, de modo que a tela fun- 
cione como uma "janela" que mostra 
parte do texto. Nos micros pessoais, a 
janela tem, em geral, vinte linhas por 
quarenta colunas. 



REALCE SEU TEXTO 



Os processadores de texto oferecem 
diversas opgoes de realce de segSes do 
texto, como negrito, texto inverse {ca- 
racteres brancos sobre fundo ne- 
gro, na impressao), letras de ta- 
manhos ou formatos diferentes 
{italico, dupla largura etc.). Es- 
ses realces podem aparecer na te- 
la e na impresso ra, ou apenas na 
impressora. Nessecaso, caracte- 
res especiais de demarcagao as- 
sinalam, na tela, o lugar onde se 
inicia e termina uma fung^io de 
realce. 



COMANDOS DE CONTROLE 



Os programas mais simples de 
processamento sSo os edilores de 
texto, com as fungoes basicas de in- 
sergao e modificagao. Um editor se 
transforma em um processador de pa- 
lavras com acrescimo de diversas ou- 
tras fungoes, que podem ser utilizadas 
pelo usuario no momento em que neces- 
sitar. A maneira de ativar essas fungoes 
varia de prcgrama para programa, e e 
um elemento importante na ergonomia 
(facilidade de uso) do processador. 
As diretivas de controJe dos recurso-v 
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do pTOgrama sao entradas pelo teclado, 
num processo tao Kcil quanto o da en- 
trada detexto. Os comgndos funcionais 
consistem normalmente de teclas espe- 
ciais, ou sequencias de teclas. Entre as 
mais comuns, incluem-se as de retroces- 
so, as de controle dos cursores, < EN- 
TER > etc. Bons comandos de edi^ao 
sao essenciais para facititar o uso 
do programa. Em alguns casos, 
as seqtiencias de comando sao 
muito complicadas e difkeis 
de meraorizar — o que 
torna o programa pou- 
co conveniente para o 
usuario ocasional. 
AI6111 desses. o 
programa possiii 
comandos de 
controle de for- 
matagao cujo 
efeito so se ob- 
serva, em geral, 
no momento da 
impressao. Nos 
programas 
WYSWYG. eles 
sao "embutidos" 
no texto, sob a 
forma de caracteres 
invisiveis de contro- 
le. O video responde 
a esses comandos 
de maneira bem se- 
melhante ao que uma 
impressora responderia; 
isso possibilita que usua- 
rio tenha uma visao previa 
de como o documento ficari 
quando pronto. 

Nos demais programas, os co- 
mandos de formatatpao sao co- 
[ocados explicitamente no texto, 
precedidos por sinais especiais. 
Por exemplo, um comando como: 



introduzido no meio de um texto, indi- 
caria ao processador que, naquele local, 
a margem esquerda deve ser modifica- 
da para vinte colunas. 



CARTAS MULTIPLAS 



Outro reciirso de programas 
mais sofisticados de processa- 
mento de texto e a mala direta 
— a impressao de cartas miilti- 
plas, enderegadas de forma per- 
sonatizada a varias pessoas (ve- 
ja o artigo da pdgina 17). 

Uma das maneiras mais simples de 
fazer isso consiste em escrever uma car- 
ta padronizada, com auxilio do pro- 



cessador de texto, e depois armazend-la 
em fita ou disco. 

Para enviar essa carta a diferentes 
destinatdrios, bastara carregar o texto 
da mesma na memdria e, utilizando as 
fun^oes de edifao, inserir nome, ende- 
refo e outros dados nos pontes apro- 
priados, imprimindo-a a segulr. 

Uma aJternativa mais elaborada 6 o 
uso de um outro arquivo de textos — de- 
nominado mascara — contendo, por 
exemplo, o nome e o endere^o de todas 
as pessoas para as quais se quer man- 
dar umacarta. No texto da carta, por 
sua vez, introduzem-se caracteres espe- 
ciais, que assinalam onde devem entrar 
OS dados da mascara. Ao se fazer a im- 
pressio, o programa produzir^ uma car- 
ta para cada destinatdrio, automatica- 
mente, colocando os dados nos pontes 
certos do texto, 

Um sistema de produ^ao de cartas 
miikiplas tem variadas aplica^oes tanto 
domesticas (o envio de cartoes de Natal 
personalizados, por exemplo), quanto 
profissionais (propaganda de um produ- 
to ou ser\'i9o, cartas circuiares, corres- 
pondencias para orfamenlos e assim por 
diante). 




ESCOLHA DO HARDWARE 



Teoricamente, qualquer microcom- 
putador pode ser usado para processa- 
mento de texto, desde que haja um pro- 
grama adequado para ele (na serie de ar- 
tigos iniciada na pagina 576, apresenta- 
mos um programa completo de proces- 
samento de texto para a maioria das ii- 
nhas cobertas por INPUT). £ obvio, po- 
r^m, que nao tem sentido fazer proces- 
samento de texto se nao se conta com 
uma impressora. Al^m disso, convem 
lembrar que, na pratica, existem algu- 
mas limita^oes impostas pelo hardware. 

Para comecar, ha a questao do tecla- 
do. A maioria dos micros compativeis 
com o ZX-81, por exemplo, possui um 
teclado inadequado para datilografia li- 
pida de textos, nao dispondo de letras 
miniisculas, nem de sinais de acentua- 
?ao. Portanto, ao processar textos com 
essas maquinas, nao se pode esperar um 
resultado de bom nivel. 

A [jnha Spectrum original (TK-90X, 
no Brasil) tambem tern um teclado so- 
frivel, em bora oferega a alternativa de 
usar letras minusculas e algum tipo de 
acentuagao. O modelo TK-95 e os tecla- 
dos semiprofissionais acessorios, que 
podem ser comprados para o Spectrum, 
melhoram bastante a situafSo. 

Os computadores que possuem tecla- 
do semelhante ao de uma maquina de 
escrever — como o Apple, o TK-2000, 



TRS-80, o TRS-Color II e o MSX — 
sao mais adequados quanto a esse aspec- 
to. HA, por^m, urna grande variagao de 
qualidade entre os diferentes modelos. 
Deve-se levar em conta, por exemplo, 
que so OS micros da linha MSX incluem 
a acentuagao original da lingua portu- 
guesa, por terem adotado o padrao 
BRASCll (ASCII brasileiro). 

Outro elemento importante na esco- 
Iha do hardware para processamento de 
texto e o video. Nos computadores do- 
mesticos mais comuns, este em geral se 
limita a 32 ou 40 colunas (excepcional- 
mente 64, como nos micros TRS-80). 
Esse Tormato possibilita, entre outras 
coisas, o uso de televisores como saida 
de video, Mas ^ restritivo para um tra- 
balho mais intenso com processadores 
de texto, principalmente os do tipo 
WYSWYG, que imprimem uma folha 
de sessenta a setenta toques. 

Em alguns micros, como o MSX e o 
Apple, e possivel ampliar o formato de 
video com software ou hardware de ex- 
pansao. Nesse caso, porem, nao se re- 
comenda utilizar aparelhos de TV, pois 
a imagem perde a nitidez. Para quern 
pretende trabalhar por muito tempo 
com um processador, a nitidez de texto 
e a estabilidade no video sao fundamen- 
tals — e essas qualidades 56 sao obtidas 
com monitores profissionais (veja o ar- 
tigo da pigina 851), 



MEMORIA 



O lamanho da mem6ria disponfvel 
tambem deve ser considerado na selegao 
de um bom hardware para processamen- 
to de texto. A mem6rta RAM nao che- 
ga a ser um impedimento, dependendo 
do software escolhido. Alguns proces- 
sadores so operam com o texfo inteira- 
mente contido na memdria. Se ele for 
demasiado grande, e preciso dividi-lo 
em sec6es menores, que sao gravadas em 
fita ou video, que costuma ser bastan- 
te cansativo. Uma mator capacidade da 
RAM ajuda muito, portanto. 

Os processadores mais avangados tra- 
balham k base de paginagao, ou memd- 
ria virtual — isto i, gravam e leem es- 
sas sefoes do texto em disco, periodica- 
raente. Sao, contudo, bem mais exigen- 
tes em termos de hardware. 

A memoria auxiliar e outro item im- 
portante. Para quem utiliza pouco 
processador e lida apenas com textos pe- 
quenos (cartas, digamos), um gravador 
cassete e perfeitamente aceitdvei para ar- 
mazenamento de textos. Para uso mais 
intenso, entretanto, t praticamente in- 
dispensavel o acionador de disquetes. 
Alem de maior capacidade e velocida- 



de, ele assegura uma taxa de erros baixa. 
O emprego de memoria virtual e en- 
cadeamento de arquivos (se^oes separa- 
das de um texto, que podem ser reuni- 
das em qualquer ordem) e necessario 
quando o texto e limitado apenas pela 
capacidade da memoria auxiliar. Po- 
rem, quando os textos sao muito gran- 
des, essa solugao dificulta o trabalho e 
impede a utilizagao de fungoes globais 
de edicao (busca, substituiijao etc.) 



A IMPRESSORA 



Em artigos anteriores (pSginas 521 e 
648), examinamos os diversos tipos de 
impressora, suas caracteristicas e as van- 
tagens que cada modelo oferece em re- 
lagao ao processamento de texto. Por js- 
so, retomaremos aqui apenas os aspec- 
tos mais importante.-i, 

A impressora desempenha um papei 
fundamental na qualidade do texto im- 
pressoj[o produto final). Para trabalhos 
que nao requerem uma apresentagao 
perfeita, ou para a obtengao de copias 
de "rascunho", uma impressora matri- 
cial e perfeitamente adequada. Algumas 
delas podem produzir impressoes em 
qualidade carta (dupla densidade de im- 
pressao), com uma aparencia bastanie 
semelhante a de um texto datilografa- 
do. Se queremos conseguir o maxJmo de 
qualidade, porem, devemos usar uma 
impressora do tipo margarida. 

Seja qual for o seu objetivo, nao se 
esquega de verificar se a impressora e 
compatfvel com o software de proces- 
samento, sobretudo quanto a capacida- 
de para realce de texto, mudan? a de fon- 
les, aceniuagao etc. 



QUEM PRECISA DE UM PROCESSADOR? 



O processamento de textos por com- 
putador oferece enormes vantagens pa- 
ra escritores, jornalistas, professores, 
cientistas ou quaisquer outros profissio- 
nais cujas fungoes incluam a elaboragao 
de documentos, relatorios e cartas. Se 
voce esta em uma dessas categorias e 
ainda nao tem um processador, franca- 
mente, nao sabemos como pode passar 
sem ele, ate agora! 

Se voce e estudante. provavelmente 
seu grau de utilizagao nao ^ tao inten- 
so, mas o computador ajuda muito na 
execugao de trabalhos escolares. 

De qualquer modo, raesmo que voce 
nao se enquadre em nenhum dos casos 
mencionados, um computador e bem 
vantajoso em relagao a uma maquina de 
escrever, embora o prego nao seja mui- 
to diferente (se a maquina for eletrica). 



32 APUCACOES 32 



DESENHO 
ARQU1TET6NIC© (2) 



Este e o seglindo e ultimo artigo sobre 
o projeto arquitetonico computadoriza- 
do. Aqui esiao os complementos das lis- 
tagens para cada um dos micros, acres- 
cidas de instrufoes detaihadas ret'eren- 
tes hs ires primeiras op^oes do menu. As 
outras quatro serao identicas para as tres 
versoes. 



As opcocs sao as seguintes: 

- opfao 1, desenha o ambiente; 

- opcao 2, posiciona a mobilia; 

- opijao 3, cria mobOia propria; 

- oppao 4, grava o projeto; 

- op<;ao 5, carrega; 

- op(;ao 6, imprime; 

- opQao 7, sai do programa, 

A primeira informagao que devemos 
fornecer ao programa 6 a mator medi- 
da (em metres) do ambiente considera- 
do. Digite OS dados e tecle < ENTER > . 
Depois disso, aparecerd um segundo me- 
nu contendo as seguintes opi;6es: 
<ESPA(^0> desenha uma linha; 
<J> desenha uma janela; 
<P> desenha uma porta; 
<B> movimenta sem desenhar; 
<S> volta ao menu principal. 

Ao selecionarmos qualquer opcao, k 
exceyao da < S > , seremos perguniados 
sobre a direpao e o comprimento da re- 
la a ser feita. As quest oes serao repeti- 
das, de forma a permitir que tracemos 
linhas na diagonal, porexemplo, dizen- 
do o quanto para cima ou para a direi- 
ta queremos a reta. Se desejarmos tra(;a- 
la simplesmente na horizontal ou na ver- 
tical, bastara que forne^jamos valores 
nulos. Repetiremos o processo ale con- 
cluir o desenho do ambiente e, em se- 
guida, teclaremos <S> para retornar 
ao menu principal. Com um pouco de 
pratica, desenvolveremos nossos prcje- 
los em questao de minutos. 

Na op^ao 2, usaremos as teclas 6 e 
7 para selecionar o m6vel a ser posicio- 
nado. Teclando <S> , a pe?a aparece- 
ra no cenlro da tela. Poderemos movi- 
menta-ia para cima, para baixo, para a 
dircita e para a esquerda acionando as 
teclas 5. 6, 7 e 8, Para girar o movel no 
sentido horario, pressionaremos a tecla 
H; no sentido inverse, A. 

Na cria?ao da mobilia, na opcao 3, 



utitizaremos o mesmo processo da op- 
fao 1 {desenho do ambiente), com a di- 
feren(;a de que agora o objeto nao apa- 
reccra na tela ate que sejam fornecidas 
lodas as suas dimensoes. Indagados so- 
bre o niimcro de lados da pe^a {1 a 15) 
e sobre sen codigo, daremos um no me 
de dois digit os k mobilia, de modo a po- 
dermos identifica-la mais tarde. 

A opgao 4 grava tanto a tela como 
OS dados correspondentes as pegas da 
mobilia. Usaremos depois a opgao 5 pa- 
ra carregar na memoria um projeto gra- 
vado anteriormente, A op?ao 6 — de 
impressao — funcionari somente com 
a impressora conectada. 

7010 INPUT "DIGITE DIRECAO {C. 

B.E.D) ?':DS 

7020 INPUT "DIGITE DTSTANCIA ?" 

;D: RETURN 

7040 LET 2-CODE INKEYS: FOR K=l 

TO LEN KS: IF CODE {KS(K))-Z T 
HEN LET K=LEN K3 r GOTO 7060 
7050 NEXT K: GOTO 704 
7060 NEXT K: RETURN 
8000 DIM S(10): LET NF=0: LET F 
S="000": LET MAX-5: LET a=0: LE 
T SC=I75/MAX: GOSUB 6060 
8010 DIM 0(10,30) : DIM O$(10.2) 
aOZO FOR N=J TO 5: FOR K-1 TO 8 
: READ OtN.K): NEXT K: NEXT N 
8030 FOR N=l TO 10: READ 0$ (N) : 

NEXT N 
8032 FOR N=USR 
: READ A 
B035 FOR 
NEXT N 
8Q40 RETURN 
8090 DATA .5,0,0,- 
8100 DATA 
.5 

8110 DATA 
75 

8120 DATA .6 
8130 DATA 
8150 DATA 
GE" , "XX" , 



A" 

POKE N,A 
N=l TO ]0 



TO USB "A"+7 
NEXT N 
HEAD S(N) - 



5 . - , 5 , , . 



75,0,0,-.!i, - . 75,0,0. 

5. 0.0, -.75. -.5, 0.0,. 

0.0. -.5, -.5. 0,0. .5 
.5, 0.0, -.5. -.5, 0,0, .5 
"AR" .-FO". "LL'.'PI" ." 
XX',"XX","XX" ,"XX" 
8160 DATA 16,32,64,255,64,32,16 
,0 
8170 DATA 4,4,4,4,4,0.0,0,0.0 



Ao rodarmos o programa, veremos 
um menu com as seguintes opgoes: 

- op^ao 1, desenha o ambiente; 

- op^ao 2, posiciona a mobi'Ua; 

- op^ao 3, cria novas pegas; 

- opgao 4, grava o projeto; 



Desenhe os m6vets que irao compor o 
ambiente a ser planejado. Depots que 
todas as pe^as se encaixarem em seus 
respectivos lugares, restart salvar 
projeto em fita ou disco. 




32 APUacOlS 31 



II 



COMPLETE DESENHO 



DO AMBIENTE 



CRIE NOVAS PECAS PARA 



SUA MOBILIA 



GRAVE PROJETO 




CARREGUE 



IMPRIMA 



GIRE SEUS MOVEIS 



APAGUE E REDESENHE 



PROG RAMA TERMINADO 




- op(;ao 5, carrega; 

- opi^ao 6, imprime; 

- op^ao 7, sai do programa, 

Se escolhermos a opgao 1, seremos 
perguntados sobre a maior medida do 
ambiente. Com essa informagao, o mi- 
cro colocard o desenlio era escala, de 
modo que ele caiba na tela. 

Tecle a barra^de espafo para iniciar 
o desenho do ambiente. Hd outras op- 
^oes deniro da op^ao 1, a saber: 
<ESPACO> para desenhar; 
<B> para mover sem desenhar; 
< W > para desenhar janelas; 
<0> para desenhar portas; 
<C> para Hmpar a tela; 
<F> para voltar ao menu inicial, 

Ao escolher uma das op^oes (a exce- 
pao da <C> e da <F> ), o usudrio se- 
rd indagado sobre a dire^ao e o compri- 
mento da reta desejada. Essas pergun- 
tas serao feitas varias vezes, a fim de 
oferecer dados ao computador. 

Suponhamos que queremos tratjar 
uma reta inclinada, por exemplo. Basi- 



camente, teremos que fornecer ao mi- 
cro duas informagoes, ou seja, o quan- 
to ela deverd se desiocar para cima ou 
para baixo e o quanto deverd ir para a 
direita ou a esquerda. A repetigao das 
questoes nos permite, portanto, montar 
coordenadas. bidirecionais para a nossa 
reta e tragd-la na diagonal. 

Para obter retas horizontals ou ver- 
ticals (unldirecionals), bastara teclar 

< ENTER > , quando a pergunta for re- 
petida. Tecle <C> para apagar a tela 
e <F> para voltar ao menu principal. 

A opcao 2 mantem na tela o desenho 
do ambiente executado na primeira op- 
(p^ao e acrescenta urn cursor em forma de 
cruz que sera movimentado ponto a 
ponto atraves das teclas das setas. Para 
movg-lo mais rapidamente, tecle 

< SHIFT > + seta, at^ alcanfar a posi- 
tao desejada — aquela em que o movel 
sera colocado. Em seguida, acione a te- 
cla P, Felto isso, e&colha a peca a ser po- 
sicionada. As pegas sao numeradas de 
a 9; cabera ao usuario criar as cinco 



iiltimas, ji que as iniciais sao automati- 
caraente definidas (mas podem ser alte- 
radas) no programa: 0-pia, 1-fogao, 
2-mesa, 3-geladeira e 4-armino. Para 
apagar um movd, posicione o cursor no 
vdrtice que o gerou, tecle D e selecione 
o numero desse m6vel. Deveremos nos 
certificar de que o cursor esteja exata- 
mente no vertice que o gerou; caso con- 
trario, a pega nao sera totalmenie eli- 
minada. 

Se quisermos girar um move! para 
adequa-lo a um canto quaJquer do am- 
biente, basta acionar a tecla R seguido 
do angulo de giro do m6vel — expresso 
em graus. Todos os objetos serao dese- 
nhados com essa angula^ao ate que se 
tecle novamente R; so que desta vez se- 
guido de 0. A op(;ao < F > possibilita 
retornar ao meu principal. 

A op<;ao 3 permite definir novas pe- 
?as ou modificar as cinco j^ existenies. 
As medidas, fornecidas em centimetros, 
nao deverao ultra passar os 200 cm. O 
primetro passo consiste em escolher um 




Com auxilio do compulador, pade-se prnjetar o arranjo 
de uma cozinha. como nio<itra a tela a e*»|uerda, 
em algiinii minutos. O menu do pragmma, 
exibido na tela abaixu, 
oferece ao usuario 
sel« apfoes. 




niimero de a 9 para armazenagem da 
pe(;a que, em seguida, sera desenhada 
peio mesmo processo utilizado na op^;ao 
] (desenho do ambiente). Tecle <C> 
para recomecar o desenho e <F> para 
retornar ao menu inicial. 

A opfao 4 armazena nosso projeto 
(que deve receber um nome aqui) em fi- 
Ea ou disco. A opgao 5 carrega na me- 
moria do micro um projeto previamen- 
te gravado em fita ou disco. 

A opfao de impressao esta incomple- 
ta, pois necessita de uma rotina que des- 
peje o contciido da tela na impressora. 
Retomaremos este assunto em um pr6- 
ximo artigo, que nos habilitara a elabo- 
rar tal rotina. 

1210 OX-X;OTf-lC 

1220 IP I$<*CHR${8) AND X>0 THEN 

X-X-1 
1230 IF IS^CI(n3(9} AND X<ie5 TM 
EN X-X+1 

1240 IF I$-CHR$C94) AND y>0 THE 
N Y-Y-1 

1250 IF 13-CHR3C10) AND Y^ISS T 
HEN Y-y+l 

1260 IF i$-CHRSC21) AND X>7 THE 
N X-X-8 

1270 IF I$-CHH$C93] AND X<177 T 
HEN X-X+8 
.1280 IF 1S-CHIIS(95) AND Y>7 THE 

N y-Y-e 

1290 IF I$-CHaS(91) AND Y<177 T 

HEN y-Y+9 

1300 PUT<OX-3,OY-3)-{OX+3,OY+3) 

.S.PSET 

1310 IF 13--?" THEN 1360 

1320 IF IS'-D' THEN 1430 

1330 IF IS="B" THEN 1500 

1340 IF I$="F" THEN FOR K-1 TO 

4:PC0PY K TO K+4 : NEXT : GOTO 90 

1350 GOTO 1160 

1360 SOUND 190.1 



1370 COLOR 0;GOSUB 340 

1380 IS = INKEYS:IF IS<"0'' OR IS> 

"9" THEN 1380 

1390 COLOR 1:<30SUB 340 

1400 N^VALdS) 

1410 COLOR 0.1:AS-0S(N) :G0SUB 1 

540 

1420 GOTO 1160 

1430 SOUND 200.1 

1440 COLOR 0:GOSUB 34 

1450 IS-INKEY3:1F I3<''0" Oa I5> 

"9- THEN 1450 

1460 COLOR liGOSUB 340 

14 7 N-UAL(IS) 

1480 COLOR 1.1;AS-0S(N) :GOSUB 1 

540 

1490 GOTO 1160 

1500 CLS:PHINT"ANGULO DE ROTACA 

(0-360)' : INPUT RT 

1510 IF RT<0 OR RT>360 THEN 150 



1520 RT- (RT/1S0)*3.141 

1530 SCREEN 1.0:GOT0 1160 

1540 IF AS-"" THEN RETURN 

1550 P=lrXl=X;Yl=Y 

1560 BS-MIDS tA$,P,l) 

1570 DS-HID3{AS,P+1,1) 

1580 D-VAL(MIDS(AS.P-t-2,INSTRCP, 

AS,-j'')-tP-!-2))) 

1590 P-INSTR(P,AS.''i')'»'l 

1600 D-D/100;D2-FNA(D) :OX-X-OY- 

Y 

1610 IF DS-"D' THEN XA-D2*C0S(R 

T) :YA— D2«SINtHT) 

1620 IF DS-"E" THEN XA— D2*C0SC 

RT) :YA-D2*SIN(aT) 

1630 IF D$-"B" THEN XA-D2*SIN{H 

T) :yA-D2*C0SCRTJ 

1640 IF DS-"C" THEN XA— D2*S1N{ 

RT) ;?*— D2*C0StHT) 

1650 XA-INT{XA+.5) :yA-INT(XA+.5 

) 

1660 X-X+XA : y-Y+YA 

1670 IF B3-"D" THEN LINE COX, OY) 

-(X,¥) .PSET 

16S0 IF P<LEN{AS) THEN 1560 



1690 X-Xl:Y-yi; RETURN 

1700 CLS:LINE INPUT'NOME DO ARQ 

UIVO:'':FS 

1710 SG-PEEK(188)*256 

1720 CLS: PRINT" SALVANDO:":FS 

1730 CSAVEM FS , SG. SG+6143, 352S2 

1740 GOTO 90 

1750 CLS: LINE INPUT "NOME DO AR 

QUIVO:";FS 

1760 PHINT'ACIONE GRAUADOH E 

ESPERE" 

17 70 CLOADM FS 

1780 GOTO 90 

1790 HEM "*«*«******«««•««***** 

1791 REM * * 

1792 REM * ROTINA PARA « 

1793 REM * DESPEJAfi A TELA * 

1794 REM * NA IMPRESSORA * 

1795 HEM * * 

1796 REM *****AkM«itK>t«*iie****)t»« 
179 7 GOTO 90 



Ao rodarmos o programa, veremos 
na teJa um menu com sete optjoes: 

- op^ao I , desenha o ambiente; 

- opgao 2, posiciona a mobilia; 

- opgao 3, cria novas pegas; 

- opcao 4, grava o projeto; 

- opcao 5, carrega; 

- opfao 6, imprime; 

- op<;ao 7, sai do programa. 

Devemos primeiro escolher entre as 
opcoes 1, 3 ou 5. Ao dccidirmos pela 1, 
seremos perguntados sobre a maior me- 
dida (em metres) do ambiente, informa- 
gao que permitird ao micro colocar o de- 
senho em uma escala que o faga caber 
na tela. Tecle a barra de espago para ini- 
ciar o desenho do ambiente. 
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Vlilllii" 



Ha outras opgoes dentro da oppao 1 : 

< ESPA^O > para desenhar; 
<B> para mover sem desenhar; 
<W> para desenhar janelas; 
<0> para desenhar portas; 
<C> para limpar a tela; 

<F> para voltar ao menu inicial. 

Ao escolher uma das opgoes (k exce- 
gao da < C > e da < F > ), o usuario se- 
ra perguntado sobre a dire^ao e o com- 
primento da reta desejada. Essas per- 
guntas serao feitas v^rias vezes a fim de 
ofereeer dados ao computador. 

Suponhamos que queremos iraijar 
uma reta inclinada, por exemplo. Basi- 
camente, leremos que fornecer ao mi- 
cro duas informacoes, ou seja, o quan- 
to ela dever^ se deslocar para cima ou 
para baixo e o quanto devera ir para a 
direita ou a esquerda. A repetifao das 
questSes permite, portanto, montar 
coordenadas bidirecionais para nossa re- 
ta e traga-la na diagonal. 

Para desenhar retas horizontais ou 
verticals (unidirecionais), basta teclar 

< ENTER > quando a pergunta for re- 
pctida. Tecle <C> para apagar a tela 
e <F> para voltar ao menu principal. 

A opfao 2 so poderd ser iniciada de- 
pois da opcao 1 . Ela mantem na tela o 
desenho do ambiente executado na pri- 
metra opcao e acrescenta urn cursor em 
forma de seta que seri movimentado 
ponto a ponto atrav^s das teclas das se- 
tas. Para move-lo mais rapidamente, 
usamos as teclas I-cima, M-baixo, K- 
direita e J-esquerda. at6 que o cursor al- 
cance a posigao desejada — aquela em 
que a pe?a ser^ colocada. Entao acio- 
namos a tecla P. Feito isso, determina- 
mos a pega a ser posicionada. As pe?as 
sao numeradas de a 9; caberd ao usua- 
rio criar as cinco ultimas pegas, jd que 
as iniciais sao automaticamente defini- 
das (mas podem ser akeradas) no pro- 
grama; 0-pia, 1-fogao, 2-mesa, 3-gela- 
deira e 4-armario. Para apagar urn m6- 
vel, posicione o cursor no vertice que o 
gcrou, tecle D e selecione o niimero cor- 
respondente a esse movel. Deveremos 
nos cenificar de que o cursor esteja exa- 
tamente no vertice que o gerou; caso 
contrario, a pe^a nao serd totalmente 
eliminada. 

Se quisermos girar um mbvel para 
faze-lo caber em algum canto do am- 
biente, basta acionar R seguido do angu- 
lo de giro do m6vel, expresso em graus. 
Todos OS objetos serao desenhados com 
essa angula«;ao, ate que se tecle nova- 
mente R, seguido de 0. A opgao <F> 
permite retornar ao menu principal. 

A op«;ao 3 possibilita definir novas 
pegas ou modificar as cinco j5 existen- 
tes. As medidas, fornecidasem centime- 
tros, nao deverao ultrapassar os 200 cm. 



O primeiro passo consiste era escolher 
um niimero de a 9 para armazenagem 
da pega que, em seguida, serd desenha- 
da pelo mesmo processo utiiizado na op- 
9ao 1 (desenho do ambiente). Tecle 
<C> para recomegar o desenho, e 
<F> para retornar ao menu inicial. 

A opgao 4 armazena nosso projeto 
(que aqui deve receber um nome) em fi- 
ta. A opgao 5 carrega na mem6ria do 
micro um projeto gravado em fiia. Es- 
tas duas opgoes podem ser alteradas pa- 
ra trabalhar com disco, bastando fazer 
as seguintes modificagoes: Troque o 
"CAS:" que vem logo ap6s os coman- 
dos BSAVE e BLOAD por "A:" (linhas 
1720 e 1770), respectivamente. 

A opgao de impressao csta incomple- 
ta, pots necessita de uma rotina que des- 
peje o conteiido da tela na impressora. 
Retomaremos esse assunto em um pr6- 
ximo artigo, que nos habilitarda elabo- 
rar tal rotina. 

1210 0X-X:OY-T( 

1220 IF IS-CHRS(29) AND X>0 THE 

N X-X-1 

1230 IF IS-CHR$(Z8JAND X<185THE 
N X=X+1 

1240 IF IS=CHaS(30) AND Y>0 THE 

N Y-Y-1 

1250 IF IS-CHB$(31JAND Y<ie5THE 

N Y=Y+1 

1260 IF 1S-CHHS<74) AND X>? THE 

N x-x-a 

1270 IF IS-CHB$(75)AND X<177THE 
N X-X+8 

1280 IF I$-CHH5{7:J) AND Y>7 THE 
hi VkV^r 

1290 IF I$-CHaS{77)AND Y<177THE 

N Y-Y+8 

1310 IF 1$='?' THEN CL=1:G0T0 1 

360 

1320 IF IS-"D" THEN CL-15:G0T01 

430 

1330 IF I$-"a" THEN A=USR(0) : GO 

TO 1500 

1340 IF r$="F" THEN A=USB(0):GO 

TO 90 

13S0 GOTO 1160 

1360 REEP 

1370 GOSUB 340 

13B0 I$=INKEY$:IF ISC"0" OR IS> 

"9" THEN 1380 

1390 COLOR 0: GOSUB 340 

1400 COLOR 1:N-VAL(I5) 

1410 AS-OS(N) :GOSUB 1540 

1420 GOTO 1160 

1430 BEEP 

1440 GOSUB 340 

1450 I$-INKEYS:IF IS<"0" OB I5> 

'9* THEN 1450 

1460 COLOR 0:GOSUB 340 

1470 N-VAL(IS) 

1490 AS-OS(N) :G0SU8 1540 

1490 GOTO 1160 

1500 SCREEN0:PRTNT"ANGULO DE RO 

TACftO (0-360) " i : INPUT RT 

1510 IF HT<0 OR HT>360 THEN 150 



1520 RT-=CRT/iaO)*3.141:SCREEN 2 



1530 A=13SH2C0) lA^USRKO) :GOTO 1 

160 

1540 IF AS-'" THEN RETURN 

1550 P-1;X1-X:Y1-Y 

1560 B$-«IDS tAS.P.l) 

1670 DS-MIDS(A5,P-»-l.l) 

1580 D=«VALCMID$ (AS,P+2,INSTR(P. 

A5,";')-(P+2))} 

1590 P-INSTR{P.AS. ";")+! 

1600 D-D/100 :D2"FNA(D) :0X-X:OY- 

Y 

1610 IF DS-'D" THEN XA-D2*C0S(S 

TJ ;YA— D2*SIN'(RT) 

162 IF D$--E" THEN XA— D2*COS( 

RT) :YA-D2*SIN{RT) 

1630 IF DS-"8" THEN XA-D2*SIN<R 

T) :YA-D2*C0S(RT) 

1640 IF DS-'C" THEN XA--D2*SIN( 

RT) :YA--D2*C0S(HT) 

1650 XA-INT{XA+.3} rYA-rNT(YA+.5 

} 

1660 X-X+XA:Y-Y+YA 

1670 IFB$-*D" THENLINE{0X,O¥)-( 

X,Y> ,CL 

1675 COLOR 1 

1680 IF P<LENtAS) THEN 1560 

1690 X-X1:Y-Y1: RETURN 

1700 LOCATE 5. 18: LINE INPUT'NOH 

E DO PROJETO:" ; FS 

1710 LOCATE 5. 20:PRINT"GBAUANDO 

"+FS+" . . . ' 
17.20 BSAVE "CAS:" + FS,lHD100,i.HE 
900 

1730 GOTO 90 

1750 LOCATE 5, 20: LINE INPUT"N0M 
E DO PROJETO: ' ;F3 
1760 LOCATE 5 , 22 : PHINT"CABHEGAN 
DO '+F$+" ..." 
17 70 BLOAD -CA3:"+F$ 
1780 Fl-1:G0T0 90 

1790 REM ******************** 

1791 REM * * 

1792 REM * rotina para « 

1793 REM * deapejar a tela * 

1794 REM * na impresHora * 

1795 REM • * 

1796 REM ******************** 

1797 GOTO 90 

2000 CLEAR 200,S.HA00O 

2010 DEFUSH-LHAOOO 

2015 DEFUSR1-&.HA00D 

2020 DEFUSR2-LHA01A 

2025 DEFUSfi3-K.HA026 

Z030 DEFUSR4=&.HA033 

2040 FOR R-0 TO 63:READ A 

2050 POKECtHAQOOH-R) ,A:NEXT 

2060 DATA &.H21,00,00,lHll,00,i.H 

Dl ,01,00, 24,MtCD,&.H59,00,S.HC9 

2070 DATA i.H21 , 00 , i^HDl ,B,HH , 00 , 

00,01,00,24, ILHCD. tH5C , 00 , tHC9 

2080 DATA LH21 . 00 , IH20 ,62 , 00 .01 

,00,24 , S.HCD , 1.H56 . 00 . LHC9 

2090 DATA S.H21 . 00 , 00 .IHll , S.HFF. 

LHB8,01,O0 , 24.LHCD,tH59,00.tHC9 

2100 DATA tH21.t.HrF,S-HBe.tHll,0 

0,00,01.00,24, (.HCD , t.HSC , 00 , tHC9 

2110 POKEUHAOIE) ,31 

2120 SPS = "" :F0RI'=1T08:READAS 

2130 SP$=SP5-t-CHRS(VAL(-S.H"+AS)> 

2140 NEXT: SPRITES (0)-SP$ 

2150 GOTO 20 

2160 DATA EO,C0.A0.90,0e.O0,OO, 

00 
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PERSPECTIVA 



PONTO DE FUGA E 



PONTODE VISTA 

DIMINUICAO DE TAMANHQ 

TECNICA DE SOMBREAMENTO 




Traga seu desenho para a magia do 
mundo tridimensional. Isso e possivel 
gramas aos recursos de seu micro 
aliados aos principios da perspectiva 
e das tecnicas de sombreamento. 

A maioria das pessoas sabe da impor- 
tancia do uso da perspectiva em qual- 
quer figura, e, por isso, costuma inclui- 
la ate nos mais simples esbot^os, Sur- 
preendentemente, a ideia de perspecti- 
va nao e tao clara como parece; assim, 
OS artistas mais antigos nao tinham a 
menor ideia sobre o que fazer para dar 
profundidade as suas telas. Apenas a 
partir do Renascimento, quando os pin- 
tores comecaram a dar urn torn realism 
is representatocs, e que os principios de 



perspectiva foram formulados. Essas re- 
gras sao as mesmas usadas pelos artis- 
tas gontemporaneos e aplicadas aos de- 
senhos feitos no computador. 

Para o desenvolvimenlo dessa tecni- 
ca, foram necessarios varies seculos, o 
que nao significa que suas nogoes basi- 
cas sejam de dificil compreensao. Na 
rcalidade, a ideia fundamentaE ^ a se- 
guinie; lodas as linhas horizontals per- 
manecem nessa posigao, enquanto as 
verticals se indinam "para dentro" da 
figura, convergindo para o denomina- 
do ponio defuga. (Esse assunto jd foi 
abordado no artigo Programagao de 
grd/icoi- em 3-D, pagina 693.) 

Apenas as linhas paralelas, perpen- 
diculares a figura, se dirigem para o 
ponto de fuga principal. As demais 
afluem para seus proprios pontes de Fu- 



ga, situados em uma mesma linha, no 
horizonte imaginario do desenho. 

Esses principios, quando aplicados a 
figuras reals, podem se tornar um pou- 
co mais complJcados; em desenhos sim- 
ples, cntretanto. proporcionam a sensa- 
gao de profundidade exigida. O leitor ja 
deve ter visto, na televisao ou no cine- 
ma, asironavcs voando para o espago a 
partir do imenso hangar da nave-mae. 
Nesse caso, a sensagao de profundida- 
de i dada pelo chao e pelo telo quadri- 
culados do hangar, que parecem se pro- 
jetar em diregao ao espago. 



FEIXES DE RETA EM PERSPECTIVA 



Os feixes de retas perpendicu lares sao 
muito usados para se obter a visao de 



um objeto em perspectiva. O primeiro 
progiama, mostrado a seguir, desenha 
duas superficies quadriculadas — o te- 
Eo e o chao dq hangar — tendo o usud- 
rio do micro como observador, olhan- 
do para o infinito. 



10 BOHDEB 0: PAPER 0: INK 7 

20 CLS : INPUT "PROXIMIDADE D 

CHAO " ;V 

40 FOB K=-126 TO 127 STEP 6 

^0 LET V=174: LET X=K+y*K: IF 

ABS (X)>127+(X<1) THEN LET X 

=SGN (X)«127-(X<1) ; LETY^lOO 

+ (X-X)*7'l/'(U«K) 

60 PLOT 127-K,]00: DRAW 127-X 

-PEEK 23677. Y-PEEK 23678 

70 PLOT 127-K,74: DRAW 127-X- 

PEEK 23677. 174-Y-PEEK 23678 

80 NEXT K 

90 LET F-V~<l/6) : LET Y-F 

100 LET y-Y*F: IF Y>77 THEN 

GOTO 140 

110 PLOT 0,97+Y: DRAW 25b, 

120 PLOT 0.77-y: DRAW 25S . 

130 GOTO 100 

140 IF INKEYS="" THEN GOTO 
140 

150 GOTO 20 



D 



10 PMODE 4,1 

20 CLS:INPUT-PROXIMIDADE DO CHA 

";V 

30 PCLSr SCREEN 1.1 

40 FOB K--126 TO 127 STEP 6 

50 Y-191 :X-K+U*K:IF ABS(X)>127- 

(X<1) THEN X=SGN(X)*1274(X<1) :Y 

= ni+(X-K)*80/(V*K) 

60 LlNi;(127-K.lll) tl27"X,Y).PS 

ET 

70 LINE (127-K,eO) -(127-X. 191-Y) 

,PSET 

80 NEXT 

90 F*VT(l/6) :Y-F 

100 Y-Y*F:IF Y>83 THEN 140 

110 LrNE(0.108+Y)-<255,108+Y) ,P 

SET 

120 LINE(0.e4-Y)- C255.84-y) tPSE 

T 

130 GOTO 100 

140 IF INKEYS-"" THEN 140 ELSE 

20 



aiE] 



^ 



10 TEXT 

20 HOME : INPUT 'PBOXIMIDADE D 
CHAO " ; y 
30 HGBZ 

40 FOR K - - 126 TO 127 STEP 
6 

50 Y - 191:X - K + V * K: IF A 

BS tX) > 127 - CX < I) THEN X = 

SON (XI * 127 + (X < 1) :Y = 1 




Um cen^rio quadrkulado cm perspectiva e um bom recurso 
para conferir profundidade a seu desenho. 



11 + tX - K) * 80 / (V * Ki 
60 HPLOT 127 - K.lll TO 127 - 

x.y 

70 HPLOT 127 - K.BO TO 127 - X 

.191 - y 

80 NEXT 

90 F = V - tl / 6) :y = F 

100 Y = Y * F; IF Y > 83 THEN 1 

40 

110 HPLOT 0,108 + y TO 265,108 

+ y 

120 HPLOT 0.S4 - Y TO 25!>.e4 - 

Y 

130 GOTO 100 

140 GET AS: GOTO 10 



ffU 



10 SCBEEN 

20 CLS: TNPIIT" PBOXIMIDADE DO CHA 

" ;U 

30 SCREEN 2 

40 FOB K — 126 TO 127 STEP 6 

50 Y=i91 :X=K+U*K!lF ABS(X)>127- 

(X<1) THEN X=SGN(X)*127+(X<1} ;y 

-l.li+(K-K)*80/(V*K) 

60 LTNE(127-K,11U-(127-X,Y) 

70 LINE(127-K,80)-C127-X,191-Y) 

80 NEXT 

90 F=U- (1/5) ;Y=F 

100 Y=Y*F:IF Y>e3 THEN 140 

liO LINE (0 , lOB+Y) - (255 , 108+Y) 

120 LlNE(0.84-Y}-(255,84-Y} 

130 GOTO 100 

140 IF INKEYS="" THEN 140 ELSE 

.20 

Alterando o valor inicial, obtem-se 
efeitos diferentes, como a sensa^ao de 
estar flutuando entre as duas superficies, 
Atribuindo um valor baixo para V (2, 
por exemplo),as linhas inferiores se in- 
clinario para os pdntos de fuga situa- 
dos em um horizonte acima da metade 
do video. Inversamente, as linhas supe- 
riores convergirao para um horizonte 



abalxo da metade do videa. Se, por ou- 
tro lado, digltarmos o valor 10, o cend- 
rio apresentara modifica^oes profundas, 
com o observador em uma positjao bem 
mais pr6xima do chao. 

Inicialmente, o programa desenha as 
retas frontais voltadas para o horizon- 
te, entre as linhas 40 e 80, e as retas que 
vao de lado a lado da tela, entre as U^ 
nhas 90 e 1 30. A variavel K da a coor- 
denada X do inicio de cada linha, que 
e, entao, muitipUcada por V para che- 
gar a coordenada X da sua extremida- 
de final. A condifao IF.. .THEN, na ti- 
nha 50, apenas evita que o desenho ul- 
trapasse os limites da tela. Em alguns 
computadores, isto e dispensave!, ape- 
sar de acelerar a execucao do programa. 

As linhas restantes serao trai;;adas pe- 
la proxima parte do programa. A dis- 
tancia entre elas toma-se cada vez me- 
nor a medida que "se afasiam" da te- 
la, um efeito controlado por sucessivas 
multiplicafoes da coordenada Y por 
VTl/6. O valor 1/6 foi escolhido para 
dar um resultado mais reaJista; isto, po- 
rem, nao impede que o usuirio experi- 
mente outros valores. 



A DIMINUtCAO DE TAMANHO 



Os principios da perspectiva aplicam- 
se aos objetos bem como aos feixes de 
retas. Vistos a distancia, todos os ele- 
mentos de um desenho parecem meno- 
res e mais pr6ximos uns dos outros. Is- 
so se verifica, por exemplo, quando ob- 
servamos os topos e as bases de uma se- 
rie de arvores iguais enfileiradas colo- 
cadas sobre duas retas que convergem 
para um mesmo ponto de fuga. 

Obtem-se esse efeito porque o c^re- 



A medida que nos afastamos dos objetos, eles parecem menores 
e mais proximos entre !ii, como mostra a figura acima. 



Sbu nGccs»;drii>»i principio.s c^ lecnicas especiais para 
se obter una bom sombreamento em esreras. 



bro humano relaciona o tamanho de um 
objeto conhecido com a distancia em 
que ele se encontra. Ao vermos dois ob- 
jetos identicos na forma, mas um com 
a metade do tamanho do outro, dedu- 
ziremos que o menor esta duas vezes 
mais longe que o primeiro. Porianto, ao 
desenharmos alguns objetos em tama- 
nho decrescente no vfdeo de um micro, 
teremos a impressao de que eles estarSo 
"entrando na tela". 

Analisando a distancia entre os ob- 
jetos de uma figura, concluiremos que 
ela se comporta do mesmo modo. Os 
objetos parecem mais pr6ximos emre si 
a medida que se afastam do observador. 

Existe uma rela<;ao matematica entre 
a distancia e o tamanho, isto e, o tama- 
nho aprcsenta uma variagao inversa- 
menle proporcional a distancia. Assim, 
se aumentarmos a distancia entre o obje- 
to e o observador, o tamanho do objeto 
diminuiri. E por essa razao que no pri- 
meiro programa a separa?ao entre as li- 
nhas horizontals esia elevada a 1/6. O 
numero 6 foi escolhido apenas para se 
garantir um espatamento mais condi- 
zente com a realidade; se o substituir- 
mos por qualquer outro, veremos que o 
desenho nao perdera sua profundidade. 

O proximo programa mostra como 
desenhar uma vista em perspectiva de 
uma estrada delimitada por postes: 



10 BORDEB 0: PAPER 0; INK 7: 
CLS 

15 DEF FN YtX)-((174-VPJ/100) 
■(X-128)+yP 

16 DEF FN B{X)-((20-VP)/1003* 
(X-128)+VP 

17 DEF FN S(T)-SF/SQR C{BW/2) 



"2+(T*PH)-2) 

20 PRINT ' ' • 

iO INPUT "DISTANCIA ENTRE POS 

TES ";P 

4 INPUT "LARGUHA DA ESTRADA 

"jRW 

50 INPUT "ALTURA DOS POSTES " 

;PH 

65 INPUT "ALTURA DO OBSEBUADO 

H "jRH 

70 CLS 

80 LET SF=1: LET SF=160/FN S( 

0) 

90 LET VP-160/PH*RH+100: LET 

X=228: FOR T=l TO 15 
100 LET X-X-1: IF FN S{T)<FN Y 
(X)-FN B{X) THEN GOTO 100 
110 PLOT X.FN B(X) : DRAW X- 
PEEK 23677, FN y(X)-PEEK 23678: 
LET XJ=(FN Y(X)-FN B(X))/10: 
LET YJ-FN Y(X>-XJ 
120 PLOT X-XJ,FN Y(X): DRAU X- 
XJ-PEEK 23677, YJ-PEEK 23678: 
DRAW X+XJ-PEEK 2367 7 , YJ-PEEK 
23678: DRAW X+XJ-PEEK 23677, FN 
Y(X>-PEEK 23678 
lao PLOT 255-X.FN B(X>: DRAU 
255-X-PEEK 23677. FN Y(X)-PEEK 
23678 

140 PLOT 255-X-XJ,FN Y (X) : 
DRAW 255~X~XJ-PEEK 23677. YJ- 
PEEK 23678: DRAW 255-X+XJ-PEEK 
23677, YJ-PEEK 23678: DRAW 255- 
X+XJ-PEEK 23677, FN Y(X)-PEEK 
23678 

150 NEXT T 
160 GOTO 160 



D 



10 PMODE 4,1:PCLS:CLS 

20 DEFFNYT{X)-t (900-VP)/500)«(X 

-640)+VP:DEFFNyB(X) - ( (lOO-VP) /5 

00) * (X-640) +yp :DEFFNS (T) =SF/SQR 

((RW/2)t2+(T*PH) 12) 

30 INPUT "DISTANCIA ENTRE OS POS 

TES";P 



40 INPUT"LARGURA DA ESTRADA" ;BW 

50 INPUT'ALTUHA DOS POSTES' ;PH 

60 INPUT'ALTURA DO OBSERUAOOR" ; 

RH 

70 SCREEN 1,1 

80 SF-1:SF=800/FNS fO) 

90 VP=800/PH*RH+100 : X-1140 :FOR 

T-1 TO 15 

100 X-X-4:IF FNS(T)<FNYT(X)-FNy 

B{X) THEN 100 

110 LINE(X/5,i91-FNYB(X)/5)-(X/ 

5. 191-FNyTCX)/5) ,PSET:XJ= (FNYTC 

X)-FNYB(X))/10:YJ-FNYT<X>-XJ 

120 LINE((X-XJ)/5,l9l-FNYTfX)/5 

)-((X-XJ)/5,191-YJ/5) ,PSET;L1NE 

- ( (X-t-XJ)/5, 191-yj/5) ,PSET:LINE- 

( (X+XJ) /5 , r91-FNYT(X) /5) , PSET 

130 LINEt255-X/5,191-FN¥B<X)/b) 

-(255-X/5,191-FNYTCX)/5) , PSET 

140 LINE C255- (X+XJ) /5.191-FNYT( 

X}/5)-C2b5- tX+XJ)/5,191-YJ/5) ,P 

SET: LINE - (255- <X-XJ) /5 , 191-YJ/ 

5) ,PSET:LINE- (255- tX-XJ) 75,191 - 

YJ/5) .PSET:LrNE-{255- (X-XJ)/5.1 

91-FNYT(X)/5) ,PEET 

150 NEXT 

160 IF INKEYS^-" THEN 160 ELSE 

RUN 



a] El 



10 TEXT : HOME 

20 DEF FN YT(X) - [(900 - VP) 

/ 500) ■ (X - 640) + UP: DEF 
FN YB(X) - (tlOO - VP) / 500) • 

(X - 640} + VP: DEF FN 3 (T) * 

SF / SQR ((RM / 2) " 2 + (T * 

PH) ' 2) 
30 INPUT "DISTANCIA ENTRE OS P 
OSTES ";P 

40 INPUT "LARGURA DA ESTRADA " 
rRW 

50 INPUT "ALTURA DOS POSTES "; 
Ptl 
60 INPtJT "ALTURA DO OBSERVADOR 

"iRH 
70 HCOLOH* 3: 8GB2 



mnM 



80 SF = IrSF -- 800 / FN 3(0) 
90 VP - 800 / PH * HH + 100:X - 

1140: FOft T = I TO 15 
100 X = X - 4: IF FN S(T) < F 
N YT(X) - FN yB(X) THEN iOO 
no HPLOT X / 5,191 - FN YBiK 
) / 5 TO X / 5.191 - FN yT(X) 
/ 5:XJ = ( FN YTCX) - FN IfB(X) 
) / 10:YJ = FN YT(X] - XJ 
120 HPLOT (X - XJ) / 5.191 - 
FN YTIX) / 5 TO (X - XJ) / 5.19 
1 - yj / 5: HPLOT TO (X + XJ) 
/ S.l'U - YJ / 5: HPLOT TO (X 
* XJ) / 5.191 - FN YT(X) / 5 
130 HPLOT 255 - X / 5,191 - F 
N YB(X) / 5 TO 255 - X / 5,191 
- FN YTCX) / 5 

140 HPLOT 255 - (X + XJ) / S,'! 
91 - FN YTtX) / 5 TO 255 - (X 
+ XJ) / 5,191 - YJ / 5: HPLOT 
TO 255 - (X - XJ) / 5.191 - YJ 
/ 5: HPLOT TO 255 - (X - XJ) / 

5.191 - FN YT(X) / 5 
150 NEXT 
160 GET AS: RUN 



m 
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10 SCREEN 

ZO DEFFNYT(X)-(<900-UP)/500)'«(X 

-filOj+UPiDEFFNYBCXj-C (100-VP)/5 

00) * {X-640) +VP : DEFFNS (T) -SF/3QB 

((RW/2) -2+(T*PH) -2) 

30 INPUT"DISTANCIA ENTBE OS POS 

TE3 '-.P 

40 INPUT' LARGURA DA E3TRADA ';B 

V 

SO INPUT'ALTUHA DOS POSTES " ; PH 

60 INPUT-ALTURA DO OBSEHVADOR " 

;RH 

70 SCREEN 2 

80 SF-l:SF-800/FNStO) 

90 UP=800/PH*BH+100:X-1140:FOR 

T=l TO 15 

100 X=X-4:IF FNS(T) <FNYT(X)-FNY 

8(X) THEN 100 

110 LINE (X/B, 191-FNYB(X) /SI -(X 

/5.191-FNYTCX)/5) : XJ= (FNYT (X) -F 

NYB(X) )/]0:YJ"FNYT{X) -XJ 

120 LINE C(X-XJ)/5,191-FNyT{X)/ 

5)-( (X-XJ)/5,191-YJ/5) :LINE-((X 

+XJ) /5 . 191-YJ/5) : LINE- ( (X+XJ) /5 

,191-FNyT(X}/5) 

130 LINE {255-X/5, 191-FNYB(X)/5 

) -(255-X/5. i91-FNYT(XJ /5) 

140 LINE (255-{X+XJ)/5,191-FNyT 

{X)/5)-C255-(X+XJ)/5,19i-yj/5) : 

LINE- (255- (X-XJ)/5.191-yJ/5) :LI 

NE-(255-(X-XJ) /5,191-FNYT<X3 /5) 

150 NEXT 

160 IF INKEYS-"' THEN 160 ELSE 

BUN 

Este programa permite ao usudrio de- 
fmir cxatamente o cendrio da estrada 
antes de desenha-lo em perspectiva. 

Para facilitar os calculos, de oferece 
tres fungoes: FNS(T) calciila a altura de 
cada poste; FNYT(X) e FNYB(X> dio 
as coordenadas Y da extremidade infe- 
rior e superior dos postes para qualquer 
posigao X. Podemos Imaginar o traba- 



Iho dessas duas fun^oes como sendo o 
de tracar duas retas que afluem para urn 
detertninado ponto de fuga, entre as 
quais serao colocados os postes. 

Na parte principal do programa, a ii- 
nha 80 calcula o fator de escala, SF, que 
constroi um poste lomando por base a 
altura do anteriormente desetihado. A 
varidvcl VP define o valor da coordena- 
da Y do ponto de fuga, que, por sua vez, 
depende da altura do observador e da 
altura dos postes. A coordenada X esta 
sempre no centre da tela. 

Quinze postes sao desenhados em ca- 
da fado da estrada pelo la^o entre as li- 
nhas 90 e 150. Os da margem direita slo 
OS primeiros a serem erguidos. 

Inicialmente, a linha 100, come^an- 
do a partir da extremidade direita da te- 
la, decresce o valor da posicao X, ate 
que a altura do poste, calculada por 
FNS(T), se encaixe exatamente entre as 
linhas criadas por FNYT e FNVB. Fei- 
to isso, a primeira parte da linha 1 10 de- 
senha o poste, enquanto a porijao res- 
tante manipula as variaveis XJ e YJ, que 
sao fatores de escala para a constru^ao 
da parte superior (suporte dos fios). A 
linha 120 6 responsavel por essa ultima 
tarefa. 



SOMBREAMENTO 



Alem da perspectiva, existem outras 
t^cnicas capazes de dar tridtmensiona- 
lidade aos graficos. A mais comum de- 
las e o sombreamento. Infelizmente, a 
falta de variag3o de tons das cores cons- 
titui um grande problema quando ten- 
tamos aplicar essa tecnica aos compu- 
tadores domdstJcos. Com isso, torna-se 
extremamente dificil criar o sombrea- 
mento necessario para um desenho em 
tres dimensocs. 

Ji OS computadores maiores, ofere- 
cendo uma rica gama de tonalidades, fa- 
zem dessa tarefa algo bem mais ficil. 



PLANETAS PONTILHADOS 



fi possivel acrescentar sombras a uma 
figura qualquer colorindo apenas alguns 
pontos em sua regiao mais escura e a 
maioria deles nas partes mais claras. 
Portanto, o niimero de pontos acesos 
em uma certa drea do objeto e que ird 
determinar a claridade. 

Com a variagao gradual da densida- 
de nas diferentes regioes, poderemos 
criar o efeito de sombreamento. O pr6- 
ximo programa utiliza essa tecnica pa- 
ra desenhar um grupo de esferas. Elas 
se parecem tanto com planetas girando 
no espa?o que o programa chega a con- 




cluir um fundo estrelado e a desenhar 
um anel ao redor de alguraas delas. 



10 BRIGHT 0; BORDER 0: PAPER 

0: INK 7: CL3 

20 FOB I-l TO 100: PLOT HND* 

255,RND*175: NEXT 1 

25 LET F-0: FOR T-1 TO 3 

30 LET CL-RND*5+2 

40 LET XC-BND«195+30: LET YC- 

RND*115+30 

50 LET S-RHD*30 

60 FOR K— 3 TO S 

70 IF INT CK)-0 AND F-0 THEN 

PLOT INWEHSE 1; OVER 1 ; XC-L* 

2.YC; DRAW INK CL;L«4.0: LET 

F-1 

80 LET X-SQB (S"3-K*K) 

90 LET X2-2«X 
100 FOR L--X TO X 
110 PLOT INK CL; INVERSE 1;XC 
+L.YC+K: IF BND*X2-X<L THEN 
PLOT INK CL!XC+L,YC+K 
120 NEXT L 
130 NEXT K 
140 NEXT T 



112 PUOOMfAACAO BASIC 



U2^\ 




ISO NEXT A 
190 RETUHN 



150 PAUSE 

Q 

10 PMODE 3.1 :PCLS 3: SCREEN 1,0 

20 FOR K-1 TO 100:PSET(RND(256) 

-l.HND(192)-1.2) :NEXT 

25 FOR T-1 TO e 

30 XC-RND(195)+30:yC-BND(131)+3 



40 t:L-RND(3) :CL-CI,-(CL-3) 

50 S-HND(25)+5 

60 FOR K--a TO S 

70 IF K-1 AND ai«)(4)-l THEN CIR 

CLECXCYC) ,S«1.5.RNDC4) .0 

80 X-S0a(S*3-K*K) 

90 X2-2*X 

100 FOR L— X TO X STEP 2 

110 IF RND(X2)-X<L THEN COLOR C 

L ELSE COLOR 3 

120 PSET(XC+L,yC-K) 

130 NEXT L,K 

140 NEXT T 

ISO GOTO 150 



20 FOR K = 1 TO 100: HPLOT IN 

T {279 « RND (1) + 1) , INT (19 

1 * RND (1) + 1) r NEXT K 

25 FOR T - 1 TO 8 

30 XC - INT ( RND (1) * 195 + 

30):YC = INT { RND (1) * 131 + 

30) 
40 CL - INT ( RND CO) * 3 + 1) 
:CL - CL - (CL - 3) 
50 S - INT { RND (1) « 25 + 5) 

60 FOR K = - g TO S 

70 IF K - 1 AND INT { HND (1) 

* 4 + 1) =1 THEN GOSUB 160 
80 X = SQB' (S * S - K * K) 
90 X2 = 2 « X 

100 FOR L - - X TO X STEP 2 
110 IF INT ( RND CO) « X2 4- 1 
) - X < L THEN HCOLOR= CL : GOT 



QCE] 



10 RCOLOR- 



120 










115 


HCOLOB- 3 










120 


HPLOT XC 4 


L 


YC 


~ 


K 


130 


NEXT L,K 










140 


NEXT T 










150 


GOTO 150 










160 


FOB A - 


TO 


6. 


28 


STEP 



HGR? 



05 



170 HPLOT S " 2 • COS (A) + X 
C.S * 5 * SIN (A) + YC 



m 



10 COLOR 15,1 ,1 :3CREEN 2 

20 FOR K=l TO 100:PSET(INT(HND( 

1)*256) ,INT(BND(1) "192 ) ) :NEXT 

25 FOR T-l TO 8 

30 XC«INT(BND(-TIME>*195)+30rYC 

-INTCHND(-TIMEJ*131)+30 

40 CL-INT(HND(1) *3) :CL=CL- (CL-3 

) 

50 S-INTtHND(l)*25)+5 

50 FOR K=-S TO 3 

70 IF K-1 AND INT(RND(1)«4)»1 T 

HEN CIRCLE (XC.YC) ,3*1.5,9.0, , .2 

5 

BO X=SQR(S"S-K*K) 

90 X2-2*X 

100 FOB L--X TO X STEP 2 

110 IF INTCRND(1)*X2)-X<L THEN 

COLOR CL ELSE COLOR 3 

120 PSETtXC-L.lfC-K) 

130 NEXT L.K 

140 NEXT T 

150 GOTO 150 

O cen^rio de estreias e feito pela U- 
nha 20, que acende aleatoriamente 100 
pontes na lela. Oito esferas serao dese- 
nhadas (nos micros da linha Spectrum 
apenas tres) pe!o laco entre as linhas 25 
e 140. A linha 30 escolhe uma posipao 
casual para o centre de cada esfera. e 
as linhas seguintes determinam cor e 
tamanho. 

O procedimento geral para a cria^ao 
de cada esfera consiste em preenche-la, 
de baixo para cima, com retas horizon- 
tals. Esse trabalho e controlado por 
meio da variivcl K, que tern -S como 
valor inkial (a coordenada Y da parte 
mais baixa da esfera) e + S como valor 
final {a coordenada Y da parte mais al- 
ta da esfera). 

A linha 80 define a coordenada X do 
inicio de cada reta afraves da equapao 
para constru<;ao do circulo. X2 e o com- 
primento de cada reta. 

As linhas 100 e 130 determinam a cor 
das linhas. A variave! L pode ser consi- 
derada como a luminosidade de cada re- 
giao; seu valor varia segundo a distSn- 
cia entre o ponto e a borda do circulo. 
Um numero aleatorio (dependendo do 
comprimento da reta) e escolhido pela 
Unha 110; case seja menor que a clari- 
dade da regiao, define-se o ponto a ser 
plotado como sendo de cor preta. Se, ao 
contrdrio, o numero for maior, o pon- 
to serd definido como sendo da cor es- 
cothjda na linha 40. 

Por fim, a linha 135 desenha um anel 
ao redor de dois ou tres planetas. 

Experimente adaptar estas rotinas pa- 
ra sombrear outros s6lidos, como ciUn- 
dros ou superficies planas. 



i 




DETELAS 



Aprenda a montar telas para 
entrada de dados formatados nos 
computadores Apple e TK-2000. 
A padroniza^ao tomar^ seu trabalho 
mais profissional e confi^vel. 



Se voce ja se deu ao trabalho de es- 
crever um programa, certamente enfren- 
tou dificuidades na padronizai;:ao da en- 
trada dos dados. Quantas vezes nao foi 
preciso verificar o niiinem maximo de 
caracteres de uma cadeta string, para 
que nao excedesse o tamanho do seu ar- 
quivo, ou manipular uma data paradar- 
Ihe um formato adequado? 

A rotina que publicamos aqui resol- 
ve esses e outros problemas, padroni- 
zando o formato de entrada de dados e, 
ainda, melhorando sua apresentagao. 
Ela fornece formatos definidos para a 
entrada de dados numericos, alfanume- 
ricos, data e hora. Alem disso, para que 
voce tenha uma preocupacao a menos, 
encarrega-se de verificar a validade das 
daias e horas. 



COMO USAR A ROTINA 



A utilizagao da rotina de formatagao 
e simples. Digite o programa e execute- 
o, para ter uma amostra do que ela faz. 
Antes de chamar a rotina, voce precisa- 
r^ apenas entrar um parametro que de- 
finira o formato e o tipo de dado que 
a m^quina acettara. 

O parametro sera fornecido pela va- 
riavel P$, jS que o BASIC nao permite 
a passagem direta de parSmetros para 
as sub-rotinas. Assim, se voc§ quiser dar 
entrada a uma data« a variavel P$ deve- 
r^ corner a letra C (fa^a PS = "C" e use 
"calendario" como ninemonico); para 
a entrada de hora, P$ contera o valor 
H (PS = "H"). Como esses dois forma- 
tos sao fixos, basta uma so letra. 

Para a entrada de mimeros e de va- 
riaveis aifanumericas, maJs informa^oes 
serao necessarias, Na entrada de mime- 
ros, a variivel PS deverd conter a letra 
D seguida de dois valores, que indicam 
o niimero de algarismos (incluindo o 
ponto decimal) e o niimero de casas de- 
cimals. O primeiro valor deve ter sem- 
pre dois digitos (ate 9, coloque antes 
do algarismo significativo); o segundo, 
apenas um di'gito {use uma virgula para 
separd-lo do anterior). Se voce quiser, 
por exemplo, dar entrada a um niimero 
de nove digitos, dois dos quais decimals, 
J use: P$ = "D09,2". Para a entrada de 
variSveis alfanumericas, utiliza-se a le- 



tra G (lembre-se de "geral", j^ que 
aqui sao aceiios mimeros e letras), se- 
guida do niimero miximo de caracte- 
res a serem digitados. Para a entrada de 
um nome de ate trinta caracteres, use: 

PS = "G30". 

Definido o parametro, chama-se a 
sub-rotina por meto do comando GO- 
SUB 600, Se for conveniente, voce po- 
der^ renumera-la e coloca-la em qual- 
quer parte do seu programa. Nesse ca- 
se, nao se esque(;a de mudar o niimero 
da linha pedida pelo GOSUB. 

Depots de digitada, a informagao e 
armazenada na variavel W$. Para usar 
seu conteiido, e necessdrio transferi-lo 
para outra variavel cujo valor nao seja 
alterado pela sub-rotina. Uma linha de 
programa que utiliza a rotina de entra- 
da de dados fica assim: 

100 PRINT "VALOR DO SALARIO" ; : 
PS-'DOe.Z-iGOSUB 600:SA-VAL<WS3 



Quanto k localizagao do formato pa- 
ra a entrada de dados na tela, a rotina 
tamb^m e simples. Seu ponio inicial se- 
lA aqueie em que voce tiver deixado o 
cursor antes de chamar a rotina. Para 
marcar esse ponto, coloque um ponto 
e virgula no fim da mensagem. Se essa 
posi(;ao nao Ihe convier, posicione o cur- 
sor com HTAB e VTAB. 

Como esta, a rotina nao trabaiha 
bem se o formato ficar dividido em duas 
linhas, pois s6 o posicionamento hori- 
zontal e monitorado. Mais k frente, ve- 
remos como modificar essa situatao. 



FUNCIONAMENTO 



A rotina come?a na linha 600, onde 
a variavel PH passa a conter o valor da 
atual posicao horizontal do cursor. A 
posifao de meradria 36 armazena valo- 
res de a 39. Somamos 1 ao valor em 
questao, tornando-o equivalente ao usa- 
do por HTAB. A variivel PP passa en- 
tao a conter o valor ASCII da letra que 
caracteriza o parametro. Com base nes- 
sa varidvel, o programa seri desviado 
adequadamente na linha 604. As linhas 
indicadas em 604 atribuem os valores 
necessdrios ^s varidveis que controlam 
o funcionamento da sub-rotina. 



Examinemos essas varidveis, Inicial- 
mente, P conti^m o comprimento do da- 
do a ser digitado. Para data e hora, es- 
se valor e fixo; para outros tipos de da- 
do, e lido de P$. 

PF indiqa o ponto em que se poderi 
deixar a rotina. Assim, para entradas al- 
fanumericas, seu conteudo e 1 — ou se- 
ja, pelo menos um caractere tern que ser 
digitado, nao se aceitando entradas va- 
zias. Nos demais casos, PF e jgual a P, 
fori;ando o uso de todos os campos do 
formato de entrada. Isso impede que 
uma data seja digitada pela metade ou 
que se omita a parte decimal de um nii- 
mero (mesmo que seja 0). 

Duas outras variaveis, PI e P2, mar- 
cam a posigao onde se usam caracteres 
fixos no formato. Assim, para datas, o 
caractere "/" e utilizado duas vezes. A 
posipao e contada a partir de 0. 

Finalmente, as variaveis alfanumeri- 
cas iniciadas por W servem para mon- 
tar a linha de formata<;ao, que ficara ar- 
mazenada em WD$. 

Depois que o conteudo dessas varia- 
veis foi definido, a execu^ao converge 
para a linha 618. Ai tera inicio a entra- 
da de dados propriamente dita. O for- 
mato e colocado na posigao lida pela li- 
nha 600 e as variaveis WS, WIS e PX 
sao limpas, passando a conter a posi^ao 
do caractere dentro do siring que esta 
.sendo trabaihado. 

A linha 626 indica o caractere corres- 
pondente k posigao atual do cursor, 
usando operagoes 16gicas. Para isso, o 
computador atribui valor I cis reta^oes 
verdadeiras, e 0, ks falsas. Assim, todas 
as compara^oes sao condensadas em 
uma tinica linha, evitando-se o uso de 
varias instrugoes IF. 

O caractere indicado e colocado em 
sua posigao e. em seguida, o cursor e re- 
posicionado. Espera-se entao a entrada 
de um caractere pelo teclado (linha 628). 
A rotina sd particulartza dois tipos de 
caractere: o carriage return (ou seja, 
<CR>, cujo c6digo e 13) e o back- 
space (ou *-, de c6digo 8). Os demais sao 
tratados em grupo. 

Ao se digitar < OR > , o caractere se- 
ra reconhecido pelo seu cddigo, que es- 
ik armazenado na variivel PA. Note que 
ele s6 terd efeito se a posigao do carac- 
tere atual (PX) for maior ou igual ao 



UMA ROTINA PARA 
ENTRADA DE DADOS 



DEFINICAO 



DO PARAMETRO 



TIPOS DE DADOS 



ARMAZENAGEM 



DA INFORMACAQ 



POSICIONAMENTO DO CURSOR 



COMO FUNCIONA 



APERFEICOAMENTOS 



ponto de sai'da definido (PF). Assim, se 
estivermos entrando uma data, nao po- 
deremos deixar a rotina antes de digitar 
o ultimo caractere, 

O back-space (linha 632) so tera efei- 
to se esiiver alem do prtmeiro caractere 
(PX>0). Nesse caso, a roiina e desvia- 
da para a linha 644 e o valor 1 e sub- 
traido de PH — ou seja, a tabula^ao ho- 
rizontal retrocede uma posigao. Se PX 
estd apagando o primeiro caractere 
(PX = 1), volta-se para a linha 620, e o 
processo recomega. Na linha seguinie, 
PX e decrementado de 1, pois estamos 
reiornando a uma posi?ao anterior. Ve- 
rifica-se entao se o cursor nao caiu so- 
bre um dos caracteres fixos do formaio 
(cujas posigoes sao representadas por PI 
e P2). Em caso afirmativo, recua-se o 
cursor mais uma posigao. Na linha 648, 
contetido de W$ (onde a entrada esta 
sendo montada) e atualizado e retoma- 
se o ciclo. 

Nao sendo < CR > ou •-, o caracte- 
re digitado e interpretado como uma en- 
trada de dado. As linhas 634 a 638 che- 
cam se ela e vilida. Para valores de PP 
iguais a 1. 2 e 6 (3 e 4 nao sao usados), 
apenas niimeros sao admitidos. Para 
PP igual a 5 (entradas alfanum^ricas) 
admitem-se fetras maiiisculas e niime- 
ros. Se caractere nao for valido, a exe- 
cuijao e devolvida a linha 628. Caso con- 
tririo, a linha 640 se encarrega de 
colocd-lo na tela e adiciona-lo k varia- 
vel W$, incrementando, em seguida, PH 
e PX, Verifica-se entao se o cursor foi 
para uma postgao de caractere fixo, que 
deve ser saltado. 

Apos todos esses passos, retomamos 
k linha 624, que encerra a entrada quan 
do o ultimo caractere do dado e digita- 
do, desviando a execugao para a linha 
650. Esta linha e a 652 voltam a impres- 
sao de tela para o modo NORMAL e 
apagam a parte nao utilizada do forma- 
te. Nesse ponto, a rotina de entrada de 
dados esta terminada. Segue-se a checa- 
gem da validade de datas e horas por 
meio de operagoes logicas. 



APfRFElCOAMENTOS 



Podemos agora fazer algumas modi- 
ficagoes na rotina — por exemplo, 



transferir a declaragao da varidvel WW$ 
da linha 601 para o im'cio do programa, 
visto que so e necess^rio defini-la uma 
vez. e nao sempre que a rotina for utili- 
zada, Talvez voce nao precise usar to- 
dos OS tipos de entrada. Nesse caso, e 
pos-iivel retirar as part^ dispensaveis da 
rotina, pois elas sao independentes. 
Com isso, economiza-se um pouco de 
mem6ria. 

Tambem e interessante fazer com que 
a tabulagao vertical seja controlada, de 
modo que se possara entrar valores com 
mais de 39 caracteres. 



3]\m 



10 HOME 

20 PRINT TAB< BT'DEMONaTHACAO 
DK ENTRADA"; TAB ( 55) "DE DADOS 

30 VTAB 6: PtllNT "SENHA DF, ACE 
SSO: ";:PS - "COS": GOSUR 600: 

IF WS < > "SENHA" THEN END 
4G VTAB 8: PRTNT "DATA RE HOJE 
: ";:PS = "C": GOSUB 600:DT5 ^ 
WS 
50 VTAB 10: PRINT "HOHA: " ; : P5 

- "H"! GOSUM 600:KRS = WS 
60 VTAB 12: Pt^INT "DIGITE UM V 
ALOH: ": VTAB IJ : HTAE 6 : PS = " 
DIG. 3": GOSUB 600 :VA = VAL (WS 
) 

;o PHINT : PRINT DTS : PRINT HK 
S: PtllNT VA 
80 END 
596 REM ***»!***T>r/t«»t»'««***«* 

59 7 REM *** SUB ENTKADA *** 

598 REM *««*«*«*****»**!**** 

599 HEM 

600 PH = PEEK (36) + 1 : PP = A 
SC {P$) - 66 

601 WWS = " 

_^_^ " : REM * D 



EFINA ESTA VARtAVEL NO INICIO D 

SEU PROORAMA * 

602 INVEPSE 

604 ON PP GOTO 606.608.0,0,612 

,616 

606 P = 8:PF = P : PI =■ 2:P2 = 5: 

WDS =■ "DD/MM/AA":WCS = "/": GOT 

618 

608 P = VAL ( MID$ <P3,2,2}):D 

= VAL ( RIGHTS (PS.D): IF D 
= THEN 614 

610 PF = P:P1 = P - D - l:P2 = 
P1:UC$ = '.'tWDS = LEFTS (WWS, 
Pi) + WC3 + LEFTS tWWS.D): GOT 
618 



612 P = VAL ( RIGHTS (PS, 2)) 
614 PF = 1:P1 ' 99 -PI - PI: WDS 
= LEFTS CWUS,P>:WCS = "" : GOTO 

618 
616 P = 5:PF = P;P1 - 2 : P2 = PI 
:WDS = "HH:MM":WCS = ' : " 
618 HTAB PH: PRINT WDS; 
620 WS = "'':WI3 - "" 
622 PX = LEN (WS) 
624 IF PX = P THEN 6S0 
626 WA = 95 * (PP = 2 OR PP = 5 
J + 68 * (PP - 1 AND PX < 2} + 
7 7 * {(PP ■= 1 AND PX > 2 AND PX 

< 5) OR (PP = 6 AND PX > 2)) + 

65 * (PP = 1 AND PX > 5} + 72 
« (PP = 6 AND PX < 2) 
628 HTAB PH: PRINT CHRS (WA) ; 
: HTAIi !'£1: GET WIS 
630 PA = ASC (WIS) : IF PA - li 

AND PX > = PF THEN 65 
6J2 IF PA = tJ AND PX > THEN 
644 

634 IF PP = 5 THEN 638 
636 IF PA < 48 OR PA > 57 THEN 

628 
638 IF PA < 32 OR PA > 127 THE 
N 620 

640 HTAB PH: PRINT CHRS (PA) ; 
:WS =-- WS + WIS:PX = PX + 1 : PH = 

PH <- 1: If PX ^ PI OR PX = P2 
THEN PX = PX + I :PH - PH + 1:WS 

= WS + WCS 
542 GOTO 624 
644 PH = PH - 1: IF PX = 1 THEN 

620 
646 PX = PX - I; IF PX = PI OB 
PX = P2 THEN PH ^ PH - i:PX = P 
X - 1 

648 WS = LEFTS (WS.PX): GOTO 5 
26 
65 NORMAL : FOfl X = 1 TO P - 

LEN (U$) 
652 PRINT CHRS (32) r: NEXT 
654 ON PP GOTO 656,666,0,0,666 
.660 

6S6 D = VAL ( LEFTS (W$,2)):M 
= VAL ( MIDS (WS.4,2)):A = VA 
L t RIGHTS (WS.2) ) 
658 V = C{M = 4) + CM ^ 6) + (M 

= 9) + [M = 11) ) « (D > 30) + 
(M = 2) * (( INT (A / 4) = A / 
4) * CD > 29) + { INT (A / 4) < 
> (A / 4}) * (D > 28)) + ((A 

< 1) + (M < 1) + (M > 12) + (D 

< IJ -t- (D > 31)) : GOTO 664 
660 H = UAL ( LEFTS (WS.2)):M 
= UAL ( RIGHTS (H$,2) ) 

662 V = CH > 24) + CM > 59) 
664 IF V THEN PRINT CHRS (?) 
;:PR - PH - LEN (V$i : INVERSE 
: GOTO 618 
666 PRINT : RETURN 
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UM EDITOR 
MUSICAL (0 



Transforme o microcomputador em 
uma partitura com composicoes 
musicals de $ua propria autoria 
e, ainda, em uma orquestra que 
execute as melodias recem-criadas. 



Existem duas maneiras de fazer o mi- 
crocomputador tocar musica. A primei- 
ra consiste em introduzir a meiodia co- 
dificada em numeros deniro de um pro- 
grama. A segunda, em utilizar um edi- 
tor musical que cuide de toda a codifi- 
ca<"ao, deixando ao usu^Srio apenas a ta- 
re fa de digitar as notas. 

Ja vimos em INPUT como progra- 
mar o micro para executar melodias. O 
processo e simples, mas requer um bom 
conhecimento dos comandos musicals 
do BASIC, Como cstes nem sempre Sem 
muiia rela(;ao com musica, o "composi- 
tor" e obrigado a consultar constante- 
mente tabelas ou manuais, para verificar 
OS valores adcquados para a tonaiidade, 
duragao e volume, entre outros parame- 
tros de cada nota. A noiapao macromu- 
sical do MSX e do TRS-Color facilita 
esse processo, mas nao elimina o traba- 
Iho com o restante do programa 

A execu^ao de musica atraves dv pro- 
gramas apresenta ouiras desvantagens, 
como a dificuldade de editar a meiodia 
e a impossibilidade de ouvir as notas an- 
tes que o programs esteja complete. 
Alem disso, para cada pega temos que 
escrever um novo programa. 

Um editor rnuslcal ciiida de todos os 
detalhes da codificacao, deixando o 
usuario livre para tratar da meiodia pro- 
priamente dita. Nao d preciso conhcci- 
mentos de programa^ao para usa-lo. 

Como OS programa.s sao bem longos, 
foram divididos em tres partes. Digite 
agora a primeira parte e grave-a, para 
mais carde completar a listagem. 



COMO DIGITAR AS NOTAS 



Uma vez que tenhamos o programa 
completo na memoria do computador, 
poderemos seiecionar as notas de varias 
maneiras. O processo .ser^ explicado 
pormenorizadamente para cada uma das 
maquinas no ijltimo artigo desta serie. 

Seja qua! for o metodo escolhido, o 
usuario sempre tera a chance de allerar 
a meiodia — mudando, inserindo ou 
apagando noias — ate obicr o resulta- 
do desejado. Se quiser conferir o traba- 
Iho, podera executar a mtjsica — mes- 
mo incompleta — a qualquer instante, 

O editor musical permite ainda a mu- 



danga do andamento da oltava e, no ca- 
se do MSX, do timbre da nota. 

As notas sao selecionadas por meio 
de seus nomes {A, B, C, D. . .} ou do te- 
clado, que e usado como se fosse um 
piano. Se o usuario preferir, podera 
combinar os dois sistemas, introduzin- 
do nota por nota em certos trechos e 
executando outros no teclado. 



10 BOBDEB 0: PAPER 0: INK 7: 
CLS 

40 LET maxnotea-lSOO: LET ct- 
0: LET tempo«=.l: POKE 23609, 
128: POKE 23658,0: DIM ni(35] 
95 FOR 1 = 1 TO 35: BEAD md): 
NEXT i 
100 DIM t (maxnotea+l) : GOTO 

110 
105 CLS : PRINT "Aguarde. Muai 
ca aendo apagada." 
110 FOR 1=1 TO raaxnotea: LET t 
(i)=0: NEXT 1 
190 CLS 

200 PBINT INVEBSE 1 : AT 0,6;" 
MENU PRINCIPAL " ; INVERSE 0:'* 
'TAB Si"!!] Tocar pelo teclado 
"••TAB 5;" 12) Entrar notas"'' 
TAB 5;"[3) Tocar de novo" 
210 PRINT 'TAB 5; "(4) Ed i tar w 
U3lca"''TAB 5; "[5] Apsgar mUBl 
ca'^'TAB 5; "(6) Saivar muaica" 
''TAB !> ; " [ 7 ] Carregar musica" 
270 PRINT ''TAB 5;''0pcao [S] p 
ara sair"; 

300 LET AS=INKEYSr IF AS-'" 

THEN GOTO 30 

310 LET A-CODE (AS) 

320 IF (A<49 op A>55) AND AO 

113 AND A081 THEN GOTO 190 

3 30 IF A=49 THEN GOSUB 10 00 

340 IF A=50 THEN 

IF A=5J THEN 

IF A=52 THEN 

365 IF A=53 THEN 

366 IF A=54 THEN 

367 IF A-55 THEN 
370 IF A=115 OB A=83 THEN 
STOP 

380 GOTO 190 

1000 CLS 

1001 LET len=l: LET I$="SeiBicol 
cheia" 

1002 INPUT "[C]ONTINUE DA ULTIM 
A NOTA OU [ r JNICIE NOVA MUSI 
CA ? " ; i3 

tOOJ IF iS<>"c" AND iS<>"l" THE 

N GOTO 1002 

1004 LET nuro-1: IF iS^'C THEN 



350 
360 



GOSUB 2 000 
GOSUB 3000 
GOSUB 4000 
GOTO 105 
GOSUB 50 00 
GOSUB 6000 



LET 


nuin= 


= ct*2 


1005 


IF 


$ = "1 


1010 


PRINT "T 


teclag dfe""'< 


aite"" 


'<M> 


oitavas 


e me 


eia. 


sendo a 


medio"' ' 


' 


1060 


PBINT AT 


nota = 


_ rt 




1070 


FOB 


i-1 


1075 


LET 


0S-- 


1080 


I.ET 


NS-I 


EN GOTO 


1075 



+ 1: LET tn=nuni 
" THEN LET ct=0 
oque as notiaa naa 
Q> - ma is baixa 
- mais aJ ta" ' "Duaa 
la eatiio dispo-niv 
tecia <I> o C 

17,0; "Duracao da 

TO 100: NEXT l 

NKEY5: IF N$-"" TH 
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EXECUCAO DE MELODIAS 



ATRAVES DE UM PROGRAMA 

VANTAGENS DO 

EDITOR MUSICAL 



COMO DIGITAR 



AS NOTAS 

ALTERACAO DA MELODIA 
CONFERENCIA 



COMPOSICAO DE PECAS 



SELECAO DE NOTAS 



1085 IF NS-OS THEN GOTO 1080 

1090 LET N^CODE CN3) 

1091 IF N=J3 THEN LET len-1: 
ET IS = "SeBilcolcheia" 

1092 IF N=64 THEN LET leil-2: 
ET I3="Colcheia" 

1093 IF N-35 THEN LET len-4: 
ET IS="Seminima" 

1094 IF N=36 THEN LET len=8: 
ET I$="Miniii!a" 

1096 IF N=37 THEN LET len=16: 
LET IS="Seiiiibreve" 

1097 PRINT AT 17,16:" "llSi" 



1099 IF N032 AND N013 THEN G 
OTO 1109 

1100 IF i$="i" THEN LET ct-INT 
(nuin/2} : RETURN 

1102 LET ct-ct + INT ( {num-tn) /2) 
: RETURN 

1109 IF N<60 THEN LET index'N- 
47 

1110 IF N>90 THEN LET index-N- 
87 

1112 IF N>-60 AND N<-90 THEN G 

OTO lOfJO 

1115 IF index-5 OR index=9 OB i 




ndex=i6 OR index=20 OH index=21 

THEN GOTO J OSO 
1116 IF index-2 THEN LET tCnuBi 
)'=len: LET t (num+l) --4 : GOTO 11 
27 

1118 IF indeji<-0 THEN GOTO 108 

1120 SOUND len/lO.mdndex) 

1125 LET t(nLim)=len- LET t(num+ 
1) =ni (1 ndex) 

1126 PRINT AT 15.0;INT (nmil/2) + 
li" notaa na raemoria" 

1127 LET nuiii = nuiB+2 
1130 LET 0$=NS 
1140 GOTO 1080 



m 



10 CLEAR SOOO-MX-ZSO 

20 Rl$-''whqeHt.u" : R25="l 2345678" 

30 R3S-"abcdefQCDFGAp' 

40 Ny$--Q2W3ER5T6Y7UI9O0PZSXDCF 

VBHNJM, L . C/ t <"+CHR$ (30) +CHH$ (31 

)-«-CBR3 (29)+CHB$(2B)+- "+CHa$(18 

)+CHR$(127)+CHRS<13)+CHRSCll) 

50 DIM NSCMX) ,CS(12) 

60 FOR I-lT07iREAD LE$tI).L2SCI 

) :NEXT 

70 FOR I"IT012 :READ CS(I)rNEXT 

80 DATA SEMIBHEVE.l, MINIMA, 2, SE 

MINIMA, 4 ,C0LCHEIA,8.SEMlCOLCaEl 

A,16,FUSA, 32,SEMIFt;SA,64 

90 DATA c,C,d,D,e,f,F,g.G.a,A,h 

100 FOR 1=1 TO MX;NS(I)="*««*" : 

NEXT 

110 NN=0 : OC3=«"4' rTE-120rLE3 = "w 

" :LE-i 

120 CLS:COLOH 15,2:KEY OFF:LOCA 

TE 4,1:PRINT''COHPOS1TOR MUSICAL 

MENU PRINCIPAL" 
130 LOCATE 6,3:PRINT"'l :BECl)PERA 

MUSICA DA FtTA" 
140 LOCATE 6,4!pRINT"2:SALVA MU 

SICA NA FITA" 

150 LOCATE 6, 5: PRINT" 3; TOQUE NO 
TECLADO" 

160 LOCATE 6,6:PRINT"4 :COL0QUE 

UMA TABELA DE NOTAS" 

170 LOCATE 6, 7:PHINt"5:M[JDE T 

EMPO DE EXECUgAO" 

leO LOCATE f., 8rPRINT"6:LISTA/ED 

ITA NOTAS" 

190 LOCATE 6,9:PBINT"7:T0CA A M 

USICA DA MEMORIA" 

200 LOCATE 6 , 1 : PRINT'S :MUDANCA 
GERAL DE OTTAVA' 

210 LOCATE 6, 11 :PRINT"9rSAI DO 

PROGRAMA" 

2 20 LOCATE 5 , 19 : PRINT' ENTflE COM 
NIJMERO DA OPg&O" : 

230 AS-INKEY$ : IF A3<"1" OB AS> 

"9" THEN230 
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240 OP-VALtAS) 

250 ON OP GOSUB 2080,2210,500,8 

10,3 00,1510,1760,1910,270 

260 GOTO 120 

2 70 CL3:PaiNT"V0Cfi TEM CEBTE2A( 

S/N)?" 

280 AS-INKEY$:1F ASO'S" AND AS 

<>-N" THEN 280 

290 IF AS-"S" THEN CLSiCOLOB 15 

,4;END ELSE 120 

300 CLS:C0LOF 15 . 4 : PRrNT"MUDANC 

h DO TEMPO DE EXECUCAO" 

310 PRINT :PBINT"TEMPO ATUAL r " ; T 

E 

320 PRINT'ENTRE NOVO VALOR DE T 

EMPO" ; : INPUT ST 

330 IF ST-0 THEN RETURN 

340 IF ST<32 OB ST>255 THEN 320 

350 TE-STrRETURN 

360 LOCATE 6 . 7 : PRINT-NOTA 01 

TAVA DURACAO" 

370 U-9 

380 FOR L-NN-5T0NN 

390 IF L<1, THEN 490 

400 LOCATE 1,U:PRINT TAB(20)l" 

n ^ 

410 LOCATE 1,U: PRINT USING" #» I 

":Li 

420 AS=N3(L) 

430 BS=LEFTS(A$. U ;IF BS>="a'' A 

MD BS<-''g" THEN C$ = CHRS < ASC (flS) 

-32)+" "ELSE C$-BS+"#" 

440 IF B$="p" THEN C5="- " 

4S0 PRINT " "iCS;' " ;MID 

3 (AS ,2,1);" * ! 

460 PRINT LESdNSTH (HIS, MID3tA$ 

.3,1) 1 ) ; 

470 IF MIDS(AS,4,1)=--" THEN PR 

INT"." ELSE PRINT 

480 U-U+1 : 

490 NEXTL:HETUHN 

500 CLS^COLOB 15,4,15:C-VAL{0CS 

):IF C>6 THEN C-6:0C$-"6" 

510 LOCATE 13,1:PBTNT"M0D0 ORGA 

0" 

520 LOCATE 16,4: PRINT :" 

5 30 LOCATE I , 3 : PRINT'OITAVA MAX 

IMAr-;C!TAB(46} ; "DUHACAO: " ; LE3 { 

INSTB{R15, LEFTS ILES.l))) ; 

540 TF MI[>S(LES,2,J)="." THEN P 

RINT" ." ELSE PRINT 

550 LOCATE 0, 19 i PRINT" 



550 LOCATE 0,20: PRINT" / =OITA 
VA tINS/DEL) / -DtJHACAO" 

570 LOCATE 0, 21 iPRlNT"ENTEfl =ME 
NU CLS-APAGA" 

580 GOSUB 350 

590 IF NN = MX THEN LOCATE 1. ,18:P 

RINT'MAXIMO NUMERO DE NOTAS COL 

OCADO!-; :FOH S=lTO3000 ; NEXT : RET 

URN 

600 I$-INKEYS:IF IS-"" THEN 600 

610 P-TNSTR{NY$,I$) tIF P=0 THEN 

600 
620 IF P>36 THEN 6S0 
630 0CS = MID5(STR3(C+-TNT((P-1]/1 
2)) .2) !l$=C3tP-l2«INT((P-l)/lZ) 
,400 1 



640 GOTO 750 

D 

10 CLEAR 5000 

20 MX-250:HlS-'«hqeB-:R2S-'1234 
5" :R35-"abcdef gCDFGAp" :NYS--Q2W 
3EH5T6Y7UI9O0PeAZSXDCUGBHNMK . L - 

•+CHRS(10 3)+"/''"+CHRSaO)'t-CHR${ 
a)+CHHS<9)+" "*CHRSf21)+CHBS{93 
)+CHH3(13)+CHRS(12) 
30 DIM NSCMX) ,C5(12) 
40 FOR I-l TO 5:BEAD LE3(I),L23 
(I) :NEXT 

50 FOR I-l TO 12:READ CS(r):NEX 
T 

60 DATA SEMIBBEVE.l, MINIMA, 2, SE 
MINIMA , 4 , COLCHEIA. 8 . SEMICOLCHEI 
A, 16 

70 DATA c,C,d,D,e,f .F,«,G,a.A,ta 
80 FOR I-l TO MX:N3<I)--**''*'':N 
EXT 

90 NN-0:OC3-'3' :TE-8:LES-"w " : L 
E-1 

100 CLS:PBINT§6, "COMPOSITOR MU3 
ICAL": PRINT §40, "MENU PRINCIPAL 



110 PBINT§96 

DA FITA" 
120 PRINT"2; 
NA FITA" 
130 PRINT" 3: 
140 PRINT"4: 
DE NOTAS" 
150 PRINT'S; 
ACAO" 

160 PRINT"6: 
170 PRINT"?: 
MORIA" 
180 PRINT'S; 



,"l:aECUPEHA MUSICA 

SALVA MUSICA ATUAL 

TOQUE NO TECLADO- 
COLOQUE OMA TABELA 

MUDE O TEMPO DE DUB 

LISTA/EDITA NOTAS" 
TOCA A MUSICA DA ME 

MUDA A 01 TAVA GERAL 



190 PHINT"9;SAI DO PROGHAMA" 

200 PRINTe45 2,"ENTRE NUHERO D 

A OPCAO" : 

210 AS-INKEYS:IF AS<"1" OR AS>" 

9" THEN 210 

220 OP-UAL(AS) 

230 ON OP GOSUB 1900,2020,480,7 

60.420.1360,1560,17 20,250 

240 GOTO 100 

250 CLS: PRINT" VOCE TEM CERTE2A 

(S/Nr7":P0KE 282.255 

260 AS-INKEYS:IF ASO'S" AND A$ 

<>"N" THEN 260 

270 IF AS""S" THEN CLS r END ELSE 

100 

280 PRINT«132,"NOTA OITAVA D 

URACAO" 

290 RT-0 

300 FOR L-160 tO 320 STEP 32: PR 

INT«L ; NEXTL : PRINTei60 , "- ; 

310 FOR L-NN-5T0 NN 

320 IF L<1 THEN 410 

330 PR1NTUSING"##I ";ti 

340 A$-NSCL) 

350 B3-LEFT3(AS,1) :IF B3>-"a"AN 

D BS<»'g" THEN CS-CHRS(ASCtB3)- 

32)+" "ELSE CS-BS+"!'' 

360 IF BS-"P" THEN CS-"" " 

370 PRINT OS;" ";MIDS(AS.2, 

1);" "i 

380 PRINT LES{1NSTR{H13.MIDS{AS 

,3.1))) i 




MELHOHE A QUALIDADE DO SOM 

programa apresentado neste ar- 
tigo 6 bastante satisfat6rio para a 
composipao e execugao musical a n(- 
vel amadar. Os musicos profissionais, 
entfetanto, logo notarao suas timita- 
ijoes — entre elas, a falta de recur- 
sos para a modulacao do timbre (o 
que diferencia os vSrios instrumen- 
tos entre si quanto d sonoridadel e 
a impossibilidade de se obter efettos 
potifflnicos. Mas a culpa nSo 6 do 
programa. 

Mesmo o MSX, o microcomputador 
mais sofisticado em termos de progra- 
magao de efeitos sonoros, nao 6 capaz 
de substituir um verdadeiro sintetiza- 
dor musical. Este permite a simuiagao 
de um grande niimero de instrumentos 
de sopro, corda ou percussao, atravSs 
da manipula^ao das formas de onda. 
Acoplando-o a seu microcornputador, 
por meio de uma interface MIDI (veja 
o artigo da p^gina 1 306), voce poderi 
conseguir a qualidade maxima em ma- 
teria de som. 



IF MIDSCA$. 4.1)-". "THEN PRl 

"ELSE PRINT 

IF HTOOTHEN RETURN 

NEXT L: RETURN 

CLS: PRINTS? , "MUDE OPCAO TEM 

PRINT :PRINT"TEMPO ATUAL E" ; 



390 
NT" 
400 
410 

4 20 
PO" 
430 
TE 

440 PRINTgl 28, "ENTRE NOVO VALOR 

DE TEMPO" ;: INPUT ST 
450 IF ST-0 THEN RETURN 
460 IF ST<0ORST>255 THEN 440 
470 TE-STrRETURN 
480 CLS:POKE282, 255:C=VAL(OCS) : 
IF C>3 THEN C-3:OCS-"3" 
490 PRINT§7,"M0D0 ORGAO" 
500 PBINTe64, "OITAVA: ";C;TAB CIO 
) ; " DUHACAO : " ; LES t INSTH tRlS . LEFT 
SaES.l) )) : 

SIO IF MIDS(LES,2.1)-"." THEN P 
BINT"." ELSE PRINT 

5 20 PRINTe44e,"C/B-OITAVA 
ESQ/DR'DURACAO ENTER-MENU 

CLEAR-APAGAH" ; 
530 GOSUB 280 

540 IF NN-MX THEN PRINT§416 , "MA 
XIMO NUMEBO DE NOTAS COLOCADOJ" 
; :FonD-lTO1000:NEXT: RETURN 
550 IS=INKEYS:IF IS-"" THEN 550 
560 P-INSTRtNXS,IS) :IF P=0 THEN 

550 
570 IF P>36 THEN 600 
580 OCS-MIDS(STR$(C+INTt (P-l)/l 
2) ) .2) :IS-CS{P'-12*INT( tP-l)/12) 
) 
590 GOTO 700 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



llllllliaNO PROXIMO NUMEROBnilllllli 



PROGRAMAQAO BASIC 

Truques com o teclado do TRS-80: desativacao da 

tecia <BREAK>, auto-repeticao, cursor piscante. 

APLICAQOES 

Digits a segunda parte do programa editor de melodias. 

SOFTWARE 

Quadro de avisos. Modem. Exploragao da rede. 

PROGRAMACAO DE JOGOS 

Um supercompressor de textos de aventuras. 

IVl§todo chines. 

PROGRAMACAO BASIC 

Rotinas em codigo de maquina nas linhas 
DATA de programas em BASIC. 




